7. дан массив а из 20 элементов. заменить отрицательные - вопрос №7203858605 от salievtrofim20 07.03.2020 03:58

Question

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

salievtrofim20 · Answer

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.