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

Ответы 1

  • Program enot;Var A: array[1..50] of integer; i,k:integer;beginfor i:= 1 to 50 doa[i]:= random(51)+150;k:=0;for i:= 1 to 50 doif a[i]>170 then k:=k+1;writeln(k);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years