Question

Народ помогите! Паскаль. Напишите пожалуйста программу через while.

В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе. Через цикл for код писать не нужно. Заранее спасибо!!! 30 баллов.

Answer 1

Ответ: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.

Объяснение: