Question

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

Answer 1

На паскаль:
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.