Предмет: Информатика,
автор: NastyaKim18
Народ помогите! Паскаль. Напишите пожалуйста программу через 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.
Объяснение:
Интересные вопросы
Предмет: Русский язык,
автор: anelzn04
Предмет: Алгебра,
автор: Vlad999977
Предмет: Химия,
автор: semenkidashary
Предмет: Математика,
автор: mazyka156
Предмет: Алгебра,
автор: северный1