Найдите среднее арифметическое суммы из 8 введенных с клавиатуры

помогите1183 помогите1183    2   04.10.2019 15:40    0

Ответы
allalal1 allalal1  09.10.2020 19:55

var i,s,a: integer;

begin

for i:=1 to 8 do

begin

readln (a);

s:=s+a

end;

writeln;

writeln ('Среднее арифметическое: ',s/8)

end.

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