Ответы
Ответ дал:
0
Ответ:
Program sped_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.
Ошибки отмечены так
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад