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

Конечно, я помогу вам с написанием программы на языке Паскаль для отбора футболистов в заданном диапазоне года рождения и с определенным количеством забитых голов за сезон.

Вот программа:

pascal

program FootballPlayers;



type

  Player = record

    firstName: string;

    lastName: string;

    birthYear: integer;

    goalsScored: integer;

  end;



var

  players: array of Player;

  k, m, b, n, i: integer;



begin

  // Ввод данных

  writeln("Введите границы диапазона года рождения (k и m): ");

  readln(k, m);

  

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

  readln(n);

  

  // Инициализация массива футболистов

  setlength(players, n);

  

  // Заполнение массива футболистов

  for i := 0 to n - 1 do

  begin

    writeln("Введите имя и фамилию футболиста ", i+1, ": ");

    readln(players[i].firstName);

    readln(players[i].lastName);

    

    writeln("Введите год рождения футболиста ", i+1, ": ");

    readln(players[i].birthYear);

    

    writeln("Введите количество голов, забитых футболистом ", i+1, " за сезон: ");

    readln(players[i].goalsScored);

  end;

  

  // Поиск и вывод футболистов, соответствующих условиям

  writeln("Список футболистов, чей год рождения находится в диапазоне [", k, "-", m, "] и забили ровно ", b, " голов за сезон:");

  for i := 0 to n - 1 do

  begin

    if (players[i].birthYear >= k) and (players[i].birthYear <= m) and (players[i].goalsScored = b) then

      writeln(players[i].lastName, " ", players[i].firstName);

  end;

  

  readln;

end.

Данная программа сначала запрашивает у пользователя границы диапазона года рождения (k и m), количество футболистов в списке (n), а затем запрашивает информацию о каждом футболисте в указанном формате. После этого программа выводит список футболистов, чей год рождения находится в указанном диапазоне и которые забили ровно b голов за сезон.

Надеюсь, этот ответ понятен школьнику. Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать.