Question

Найдите средне арифметическое 15 чисел.

Answer 1

var

i:longint;

sr,ch: real;

begin

sr:=0;

for i := 1 to 15 do

begin

readln(ch);

sr:=sr+ch

end;

sr := sr/15;

writeln('Ответ: ',sr);

end.