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

извините,что такое "sra" ?

sra - это среднее арифметическое, добавьте в начало программы после begin count:=0; sra:=0;

спасибо большое)

program mass;uses crt;var massiv:array[1..10] of integer;     i,count:integer;      sra:real;beginfor 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.