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