Написать программу на языке прлграммирования Pascal. В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.
Написать программу на языке прлграммирования Pascal.
В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.
Гость
Ответ(ы) на вопрос:
Гостьfor i=1 to N do
summa=summa+rost [i]
srednee=summa/N
Гостьvar
n,i:integer;
x,sr:real;
begin
write('Сколько учеников: ');
readln(n);
for i:=1 to n do
begin
write('Введите рост ',i,'-го ученика: ');
readln(x);
sr:=sr+x;
end;
sr:=sr/n;
writeln('Средний рост: ',sr)
end.
Не нашли ответ?
Похожие вопросы