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

IGUMANITARII IGUMANITARII    2   02.04.2019 20:26    1

Ответы
yuraaverchenko yuraaverchenko  28.05.2020 12:50

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика