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

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.

Comments

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