Question

Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см,а число претендентов n=50. сделать программу на языке Паскаля
Ребят,срочно.оценка за четверть решается

Answer 1

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.