Объявлен набор в футбольную команду. Известен рост каждого из n участников. Подсчитать...

Question

Объявлен набор в футбольную команду. Известен рост каждого из n участников. Подсчитать кол-во претендентов, имеющих шанс попасть в команду, если рост игрока должен быть не меньше 170 см. (Число претендентов 50, а рост претендентов формируется случайным числом от 150 до 200)

Answer 1

Uses crt;
const
           n=50;
var
         a:array[1..n] of integer;
         i,s:integer;
begin
          randomize;
          for i:=1 to n do
                begin
                      a[i]:=150+random(50);
                 if a[i]>=170 then s:=s+1
                end;
          writeln(s);
end.