Паскаль. ввод с клавиатуры Ввести массив А(n) вещественных чисел. Все положительные...

Question

Паскаль. ввод с клавиатуры
Ввести массив А(n) вещественных чисел. Все положительные элементы переписать в массив А1, найти в нем максимум и поставить его на первое место в А1. Массивы А и А1 распечатать.

Answer 1

Var
A, A1 :array [1..100] of real;
max, preValue, pre :real;
i, n :integer;
begin
read(n);
max := A1[1];
for i := 1 to n do begin
read(A[i]);
if (A[i] > 0) then A1[i] = A[i];
if (A1[i] > max) then max := A1[i];
end;
preValue := A[1];
A[1] := max;
for i := 1 to n do begin
pre := A[i];
A[i] := preValue;
preValue := pre;
end;
for i := 1 to n do
write(A[i], ' ');
writeln();
for i := 1 to n do
write(A1[i], ' ');
end.

Comments

в седьмой строке есть ошибка , можешь исправить ?

---

поставь вместо A1[1] 0