Народ помогите! Паскаль. Напишите пожалуйста программу через while.
В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе. Через цикл for код писать не нужно. Заранее спасибо!!! 30 баллов.
В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе. Через цикл for код писать не нужно. Заранее спасибо!!! 30 баллов.
More Questions From This User See All
Answers & Comments
Ответ: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.
Объяснение: