Question

очень срочно помогите пожалуйста!!!! даю 50 баллов!!!!

дан код программы с ошибками. исправьте ошибки и запишите код правильно.

program sred_rost
var n, r, i, s intereg ;
begin;
writeln ('Введите количество человек')
readln (n) ;
s=0 ;
for i:=1 to n do
begin
writeln ('введите рост') ;
readln (r)
s:=s+r
end ;
writeln ('средний рост группы = ', s/n ;​

Answer 1

Ответ:

Сам на Pascal тестил

Объяснение:

program sred_rost;

var n, r, i, s:integer ;

begin

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

readln (n) ;

s:=0;

for i:=1 to n do

begin

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

readln (r);

s:=s+r;

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

end

end.