Пожалуста, помогите решить!, Сложные типы данных. Одномерные массивы. Опции

[Artemka89]

Помогите решить задачку.

Вводится одномерный вещественный массив фиксированной длины, состоящий из N элементов ( N может быть любое).Требуется:
1)Вывести исходный массив в строку.
2)Заменить все положительные элементы массива на первый отрицательный элемент. Вывести изменённый массив в том же виде что и исходный, но со следующей строки.

[Client]

В чем именно затруднение? Вывести массив или с заменой?

[Artemka89]

В чем именно затруднение? Вывести массив или с заменой?

по большей части с заменной, но на самом деле я в Паскале, как слепой котёнок... а завтра зачёт... если не трудно можете от начала до конца написать?

[Fest]

по большей части с заменной, но на самом деле я в Паскале, как слепой котёнок... а завтра зачёт... если не трудно можете от начала до конца написать?

Ну, это первый пункт:

program mas;
uses crt;
Var
a : array[1..255] of real;
i : integer;
n : integer;
Begin
clrscr;
 readkey;
 Writeln('');
 readln(n);
  For i:=1 to n do begin
  readln(a[i]);
  write(' ',a[i]:3:2);
  End;
  For i:=1 to n do begin
   write('  ',a[i]:3:2);
  End;
 Writeln;
 Readkey;
End.

А над вторым подумай сам))) Там не сложно))))

Сообщение отредактировано: Fest - 23.12.2007 21:53