Найти средний рост 32 учеников . Нужно написать программу!
Найти средний рост 32 учеников .
Нужно написать программу!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы