Объявлен набор в школьную баскетбольную команду

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

Программа на языке Паскаль:

program Zadacha10;
var
  i, s: integer;
  a: array[1..50] of integer;
begin
  randomize;  // Инициализация генератора случайных чисел
  s := 0;
  for i := 1 to 50 do 
  begin
    a[i] := random(150, 200);  // Генерация роста от 150 до 200 см
    if a[i] >= 170 then 
      s := s + 1;
  end;
  writeln('Рост претендентов:');
  for i := 1 to 50 do 
    writeln('Претендент ', i, ': ', a[i], ' см');
  writeln(s, ' учеников(-ов) могут претендовать в баскетбольную команду.');
end.

Программа на языке Python:

import random  # Импортируем модуль random для генерации случайных чисел
# Инициализация переменных
s = 0  # Счетчик претендентов с ростом 170 см и выше
a = [0] * 50  # Список для хранения роста 50 претендентов
# Генерация роста и подсчет претендентов
for i in range(50):
    a[i] = random.randint(150, 200)  # Генерация роста от 150 до 200 см
    if a[i] >= 170:
        s += 1  # Увеличиваем счетчик, если рост 170 см и выше
# Вывод результатов
print('Рост претендентов:')
for i in range(50):
    print(f'Претендент {i + 1}: {a[i]} см')  # Вывод роста каждого претендента
print(f'{s} учеников(-ов) могут претендовать в баскетбольную команду.')