Запишите ** языке Паскаль программу решения задачиОбьяален набор в школьную бесбольную...

Question

Запишите на языке Паскаль программу решения задачи
Обьяален набор в школьную бесбольную каманду известен рост каждого из n учястников желаюшего попасть в эту команду.
Подсчитайте количество претендентов имеюших шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.
Считайте рост претендента в команду случяйным числом из диапазона от 150 до 200 см, а число претендентов n=50

Answer 1

Const n=50;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51)+150;
 write(a[i],' ');
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i]>=170 then k:=k+1;
writeln('k = ',k);
end.

Пример (для n=10):
157 183 166 153 200 151 200 180 161 175
k = 5