Народ помогите! Паскаль. Напишите пожалуйста программу через while.
В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе. Через цикл for код писать не нужно. Заранее спасибо!!! 30 баллов.
Ответы
Ответ дал:
0
Ответ:var N,sr,a,r : Integer;
S : real:
sr:=0;
r:=0;
Read(N);
While N<>0 do
Begin
Read(a);
r:=r+a;
End;
Sr:=r/N;
Writeln(Sr);
End.
Объяснение:
Похожие вопросы
1 год назад
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад