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