Дан массив вещественных чисел. найти среднее арифметическое неотрицательных элементов массива.

Program n1; const n=10; var a: array[1..n] of real; sum,k: real; i: integer; begin sum: =0; k: =0; for i: =1 to n do begin readln(a[i]); if a[i]> 0 then begin k: =k+1; sum: =sum+a[i]; end; end; write(sum/k); end.

Const   n=10; var   a: array[1..n] of integer;   i,kp,sn: integer; begin   randomize;   writeln('элементы массива');   kp: =0; sn: =0;   for i: =1 to n do   begin       a[i]: = random(31)-10;       write(a[i]: 4);       if a[i]> 0 then inc(kp);       if (i mod 2)< > 0 then sn: =sn+a[i]   end;   writeln;   writeln('количество положительных элементов: ',kp);   writeln('сумма элементов на нечетных местах: ',sn);   writeln('элементы массива после замены');   for i: =1 to n do   begin       if a[i]< 10 then a[i]: =10;       write(a[i]: 4)   end;   writeln end. тестовое решение: элементы массива   10  11  -4  11  12  13  -1  -2  -8    7 количество положительных элементов: 6 сумма элементов на нечетных местах: 9 элементы массива после замены   10  11  10  11  12  13  10  10  10  10