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

Вопрос школьника по предмету Информатика

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