7. Дан массив А из 20 элементов. Заменить отрицательные эле-менты массива ** среднее...

Question

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

Answer 1

Var Sr:real;
i,n:integer;A:Array[1..20] of real;
beginfor i:=1 to 20 do begin
A[i]:= random(100)-50;
write(A[i]:5);
Sr:= Sr + A[i];
end;
Sr:= Sr/20;
Writeln('  Sr= ', Sr);
for i:=1 to 20 do begin
if A[i] < 0 then A[i]:= Sr;
write(A[i]:5);
end;end.