Question

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

Answer 1

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.