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

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

Question

Информатика

Леонтьич

4 июня, 06:28

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

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

+5

Ответы (2)

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

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

Бенедиктыч 4 июня, 06:38

0

For i=1 to N do

summa=summa+rost [i]

srednee=summa/N

Алёна · Answer 2

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.

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

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

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