7. Дан массив А из 20 частей. Поменять отрицательные эле-менты массива

Привожу вариант решения задачки на Pascal. Задаем переменные самого массива А, среднего арифметического s и счетчика i. В первом цикле сходу организуем ввод с клавиатуры переменных массива и их суммирование для следующего нахождения среднего арифметического. Изначальное значение переменной s по умолчанию одинаково 0. Потом снова запускаем цикл со счетчиком и снутри используем оператор условия: Если элемент массива меньше нуля, то присваиваем элементу с этим номером значение s.

var
A: array [1..20] of real;
s: real;
i: integer;
begin
for 1:=1 to 20 do
begin
writeln(Введите,i,-й элемент массива);
readln(A[i]);
s:=s+A[i];
end;
s:=s/20;
for 1:=1 to 20 do
if A[i]lt;0 then A[i]:=s;
for i:=1 to 20 write(A[i], )
end.