На языке Паскаль напишите программу, в которой пользователь с клавиатуры вводит число N - количество футболистов

Космическая_Следопытка

21

Хорошо, вот программный код на языке Паскаль, который выполняет указанные задачи:

pascal

program CountFootballPlayers;

var

  N, i, birthYear, goals, maxGoals, maxPlayerIndex: integer;

  playerName, maxPlayerName: string;

begin

  writeln("Введите количество футболистов:");

  readln(N);

  

  maxGoals := 0;

  maxPlayerIndex := -1;

  

  for i := 1 to N do

  begin

    writeln("Введите информацию о футболисте ", i, ":");

    readln(playerName, birthYear, goals);

    

    if (birthYear >= 1998) and (birthYear <= 2000) and (goals = 0) then

    begin

      writeln("Футболист ", playerName, " родился в указанный период и не забил ни одного гола.");

    end;

    

    if goals > maxGoals then

    begin

      maxGoals := goals;

      maxPlayerIndex := i;

      maxPlayerName := playerName;

    end;

  end;

  

  if maxPlayerIndex <> -1 then

  begin

    writeln("Футболист ", maxPlayerName, " забил наибольшее количество голов: ", maxGoals);

  end

  else

  begin

    writeln("Ни один футболист не забил голов.");

  end;

end.

Давайте разберем, как работает код.

1. Сначала мы запрашиваем у пользователя количество футболистов команды "Бублик" с помощью функции `readln(N)`.
2. Затем мы инициализируем переменные `maxGoals` и `maxPlayerIndex` со значением 0 и -1 соответственно. Эти переменные будут использоваться для определения футболиста с наибольшим количеством голов.
3. Затем начинается цикл `for`, который повторяется `N` раз, где `N` - это количество футболистов.
4. Внутри цикла мы запрашиваем у пользователя информацию о каждом футболисте: его имени (`playerName`), годе рождения (`birthYear`) и количестве голов (`goals`). Мы используем `readln` для ввода каждой строки.
5. Затем мы проверяем, что футболист родился в период с 1998 по 2000 годы и не забил ни одного гола с помощью условия `if (birthYear >= 1998) and (birthYear <= 2000) and (goals = 0)`. Если условие выполняется, мы выводим информацию о таком футболисте с помощью `writeln`.
6. Затем, для каждого футболиста, мы проверяем, забил ли он больше голов, чем предыдущий футболист с помощью условия `if goals > maxGoals`. Если условие выполняется, мы обновляем значения `maxGoals`, `maxPlayerIndex` и `maxPlayerName` соответственно.
7. После цикла мы проверяем значение `maxPlayerIndex`. Если оно не равно -1, то значит у нас есть футболист, который забил больше голов. Мы выводим информацию о нем с помощью `writeln`. В противном случае мы выводим сообщение, что ни один футболист не забил голов.

Таким образом, данная программа считает количество футболистов, родившихся в период с 1998 по 2000 годы, которые не забили ни одного гола, и находит футболиста с наибольшим количеством голов.