Составьте программу на языке Паскаль, которая определит две команды, которые покидают премьер-лигу в соответствии

Суть вопроса: Программирование на языке Паскаль для определения команд, покидающих премьер-лигу в соответствии с условиями чемпионата 2003 года

Пояснение: Вам нужно написать программу на языке Паскаль, которая определит две команды, покидающие премьер-лигу в соответствии с условиями чемпионата 2003 года. В 2003 году из премьер-лиги уходили две команды, набравшие меньше всего очков в турнирной таблице.

Примерное решение программы может выглядеть следующим образом:

pascal

program PremierLeague;



const

  TeamsCount = 20; // Количество команд в премьер-лиге



var

  Points: array[1..TeamsCount] of Integer;

  i, MinPoints, Team1, Team2: Integer;



begin

  // Ввод количества очков для каждой команды

  writeln("Введите количество очков для каждой команды:");

  for i := 1 to TeamsCount do

  begin

    writeln("Команда ", i, ":");

    readln(Points[i]);

  end;



  // Поиск двух команд с наименьшим количеством очков

  MinPoints := MaxInt;

  for i := 1 to TeamsCount do

  begin

    if Points[i] < MinPoints then

    begin

      MinPoints := Points[i];

      Team1 := i;

    end;

  end;



  MinPoints := MaxInt;

  for i := 1 to TeamsCount do

  begin

    if (Points[i] < MinPoints) and (i <> Team1) then // Исключаем уже найденную команду

    begin

      MinPoints := Points[i];

      Team2 := i;

    end;

  end;



  // Вывод результатов

  writeln("Две команды, покидающие премьер-лигу:");

  writeln("Команда ", Team1);

  writeln("Команда ", Team2);

  

  readln;

end.

Совет: При написании программы на языке Паскаль рекомендуется следить за правильным синтаксисом и используемыми переменными. Также рекомендуется тщательно проверять программу на наличие ошибок перед выполнением.

Проверочное упражнение: Напишите программу на языке Паскаль, которая определит две команды, покидающие премьер-лигу в соответствии с условиями чемпионата 2004 года.