Question

Срочно !!!!!! ДАЮ 15 БАЛЛОВ !​

Answer 1

Ответ: вроди так сори если ниправильно

Объяснение:

program sred_rost;

var n, r, i, s : integer ;

begin

wrireln (' Введите количество человек');

readln (n) ;

s :=0 ;

for i := 1 to n do

writeln ('Введите рост') ;

readln (r) ;

s := s+r ;

writeln ('Средний рост группы =', s/n) ;

end.