Решить на языке бэйсик. дан массив а из 20 элементов. заменить положительные элементы массива на среднее арифметическое элементов массива. результаты вывести на экран.
Var a: array [1..20] of real; i: integer; m,s:real; Begin s:=0; For i:=1 to 20 do Read (a[i]); For i:=1 to 20 do s:=s+a[i]; m:=s/20; For i:=1 to 20 do if a[i]>=0 then a[i]:=m; For i:=1 to 20 do write (a[i],' '); end.
a: array [1..20] of real;
i: integer;
m,s:real;
Begin
s:=0;
For i:=1 to 20 do
Read (a[i]);
For i:=1 to 20 do
s:=s+a[i];
m:=s/20;
For i:=1 to 20 do
if a[i]>=0 then
a[i]:=m;
For i:=1 to 20 do
write (a[i],' '); end.