Категория - Информатика Автор - NastyaKim18 6 лет назад Народ помогите! Паскаль. Напишите пожалуйста программу через while. В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе. Через цикл for код писать не нужно. Заранее спасибо!!! 30 баллов.
Категория - Информатика Автор - NastyaKim18 6 лет назад Народ помогите! Паскаль. Напишите пожалуйста программу через while. В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе. Через цикл for код писать не нужно. Заранее спасибо!!! 30 баллов.
Ответ Автор - ser3282 Ответ: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.Объяснение: