7. Дан массив А из 20 элементов. Заменить отрицательные эле-менты массива на среднее арифметическое элементов массива. Результат вывести на печать.

На паскаль:

var

i: integer;

sr: real;

a: array [1 ... 20] of real;

begin

sr:=0;

for i : = 1 to 20 do

begin

read (a[i]);

sr:=sr+a[i];

end;

sr:=sr/20;

for i : = 1 to 20 do

if (a[i]<0) then a[i]:=sr;

for i : = 1 to 20 do

write (a[i], ' ');

readln;

end.