Вывести на экран команды победителя и команды аутсайдера - Free Pascal

Узнай цену своей работы

Формулировка задачи:

В массив Team занесены названия 10 команд футбольного турнира. Введите с клавиатуры данные для массива итоговых результатов - Itog. Программа, обрабатывая массив Itog, выводит на экран команды-победителя и команды аутсайдера

Решение задачи: «Вывести на экран команды победителя и команды аутсайдера»

textual
Листинг программы
const n=10;
      Team:array[1..n] of string=('Спартак','ЦСКА','Динамо','Краснодар','Терек',
                                  'Амкар','Локомотив','Рубин','Уфа','Ростов');
var
    Itog:array[1..n] of byte;
    i,imx,imn:byte;
begin
writeln('Введите итоговые очки команд');
for i:=1 to n do
 begin
  readln(Itog[i]);
  if i=1 then
   begin
    imx:=1;
    imn:=1
   end
  else if Itog[i]>Itog[imx] then imx:=i
  else if Itog[i]<Itog[imn] then imn:=i;
 end;
writeln('Команда победитель ',Team[imx],' результат=',Itog[imx]);
writeln('Команда аутсайдер  ',Team[imn],' результат=',Itog[imn]);
readln
end.

Объяснение кода листинга программы

  1. Объявлены переменные:
    • n - количество команд
    • Team - массив строк с названиями команд
    • Itog - массив байтов для хранения количества очков команд
    • i, imx, imn - индексы для перемещения по массиву и определения победителя и аутсайдера
  2. Пользователю предлагается ввести очки для каждой команды
  3. Происходит сравнение очков и поиск индексов победителя и аутсайдера
  4. Выводятся на экран название победителя и количество его очков
  5. Выводятся на экран название аутсайдера и количество его очков

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.571 из 5
Похожие ответы