Решить на языке бэйсик. дан массив а из 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.