Задание 4 Параграф 21 ГДЗ Семакин 9 класс (Информатика)

program Premier_liga;
var
b: array[1..16] of integer;
team: array[1..16] of string;
maxb, minb, nmax, nmin, i: integer;
begin
writeln(‘Введине названия команд и полученные ими очки’);
for i := 1 to 16 do
begin
write(i, ‘Название: ‘); readln(team[i]);
write(‘Очки: ‘); readln(b[i]);
end;
maxb := b[1]; nmax := 1; minb := b[1]; nmin := 1;
for i := 2 to 16 do
begin
if b[i] > maxb then
begin
maxb := b[i];
nmax := i
end;
if b[i] < minb then begin minb := b[i]; nmin := i end; end; writeln('Команда-победитель чемпионата ', team[nmax], ' набрала', maxb, 'очков'); writeln('На последнем месте ', team[nmin], ' c ', minb, ' очками') end. Результаты совпадают.

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

Сначала в переменные maxb и minb заносится количество очков первой команды, а в nmax и nmin — её номер. Затем программа просматривает остальные элементы массива и при необходимости обновляет максимум и минимум.

program Premier_liga;
var
  b: array[1..16] of integer;
  team: array[1..16] of string;
  maxb, minb, nmax, nmin, i: integer;
begin
  writeln(‘Введите названия команд и полученные ими очки’);
  for i := 1 to 16 do
  begin
    write(i, ‘ Название: ‘); readln(team[i]);
    write(‘Очки: ‘); readln(b[i]);
  end;
  maxb := b[1]; nmax := 1; minb := b[1]; nmin := 1;
  for i := 2 to 16 do
  begin
    if b[i] > maxb then
    begin
      maxb := b[i];
      nmax := i
    end;
    if b[i] < minb then
    begin
      minb := b[i];
      nmin := i
    end;
  end;
  writeln(‘Команда-победитель чемпионата ‘, team[nmax], ‘ набрала ‘, maxb, ‘ очков’);
  writeln(‘На последнем месте ‘, team[nmin], ‘ с ‘, minb, ‘ очками’);
end.

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

Ответ: результаты совпадают с приведёнными в параграфе.