Написать программу на языке прлграммирования Pascal.

В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.

Question

Информатика

Леонтьич

18 июня, 09:31

Написать программу на языке прлграммирования Pascal.

В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.

+5

Ответы (2)

Знаете ответ на вопрос?

Алёна · Answer 1

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.

Бенедиктыч · Answer 2

Бенедиктыч 18 июня, 11:30

0

For i=1 to N do

summa=summa+rost [i]

srednee=summa/N

Написать программу на языке прлграммирования Pascal.В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.

Написать программу на языке прлграммирования Pascal.

В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.