Дан массив из 10 элементов. составить программу, находящую среднее арифметическое положительных.

Program mass;

uses crt;

var massiv:array[1 ... 10] of integer;

i, count:integer;

sra:real;

begin

for i:=0 to 10 do begin

readln (massiv[i]) ;

if massiv[i] > 0 then begin

count: = count+1;

sra: = sra + massiv[i];

end;

end;

sra: = sra/count;

writeln ('Среднее арифметическое = ', sra) ;

end.