Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см,а число претендентов n=50. сделать программу на языке Паскаля
Ребят,срочно.оценка за четверть решается
Program basket;
const
n:=50;
var
i, pl : integer;
hig: array [1..50] of integer;
begin
for i:= 1 to n do
begin
hig[i]:= random(51)+150;
writeln(Рост , i, -го игрока - , hig[i]);
if hig[i]>=170 then pl:=pl+1
end;
writeln(pl, претендентов.)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
