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

Question

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

Comments

Цикл?

---

да

---

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

Answer 1

var i,s,a: integer;

begin

for i:=1 to 8 do

begin

readln (a);

s:=s+a

end;

writeln;

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

end.