Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.