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

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

Question

Информатика

Дия

13 января, 02:36

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

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

+3

Ответы (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

Натоха 13 января, 06:10

0

For i=1 to N do

summa=summa+rost [i]

srednee=summa/N

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

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

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