очень срочно помогите пожалуйста!!!! даю 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 ;
дан код программы с ошибками. исправьте ошибки и запишите код правильно.
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 ;
Answers & Comments
Ответ:
Сам на 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.