Question

Очень срочно помогите пожалуйста!!!! даю 50 баллов!!!! дан код программы с ошибками. исправьте ошибки и запишите код правильно.program sred_rost var n, r, i, s intereg ;begin;writeln ('Введите количество человек') readln (n) ;s=0 ;for i:=1 to n dobegin writeln ('введите рост') ;readln (r) s:=s+rend ;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.

Answer 2

Вот исправленный код программы:

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; end; writeln('Средний рост группы = ', s/n); end.