Михайлович
7 год назад
В классе N учеников. Найти средний рост ученика в этом классе.(паскаль)
ОТВЕТЫ
Ленивцев
Jul 17, 2019
var
s,i,n,k: integer;
begin
repeat
write(Введите кол-во учеников: );
read(n);
until ngt;0;
for i:=1 to n do
begin write(Введите рост ,i, ученика: );
repeat read(k);
until kgt;0;
inc(s, k);
end;
write(Средний рост = ,s/n);
end.
begin
repeat
write(Введите кол-во учеников: );
read(n);
until ngt;0;
for i:=1 to n do
begin write(Введите рост ,i, ученика: );
repeat read(k);
until kgt;0;
inc(s, k);
end;
write(Средний рост = ,s/n);
end.
97
