Решить задачу ** языке бэйсик. Дан массив А из 20 элементов. Заменить положительные...

Question

Решить задачу на языке бэйсик.
Дан массив А из 20 элементов. Заменить положительные элементы массива на среднее арифметическое элементов массива. Результаты вывести на экран.

Answer 1

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.