Найти средний рост 32 учеников.

Нужно написать программу!

Question

Информатика

Мокей

26 сентября, 06:58

Найти средний рост 32 учеников.

Нужно написать программу!

+5

Ответы (1)

Знаете ответ на вопрос?

Тавифа · Answer 1

Var

mas:array[1 ... 32] of real;

i, k:integer;

sum:real;

begin

for i: = 1 to 32 do

begin write ('Введите рост ', i,' ученика') ; readln (mas[i]) end;

writeln;

sum:=0;

k:=0;

for i: = 1 to 32 do

begin sum:=sum+mas[i]; k:=k+1 end;

write (sum/k)

end.

Найти средний рост 32 учеников.Нужно написать программу!

Найти средний рост 32 учеников.

Нужно написать программу!