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

Ниже вариант решения задания из учебника Семакин, Залогова 9 класс, Просвещение:

4. Введите в компьютер программу Premier liga. Выполните её, получите результаты. Сравните с результатами, приведёнными в параграфе.

program Premier_liga;

var

b: array[1..16] of integer;

team: array[1..16] of string;

maxb, minb, nmax, nmin, i: integer;

begin

writeln(taskВведине названия команд и полученные ими очкиtask);

for i := 1 to 16 do

begin

write(i, taskНазвание: task); readln(team[i]);

write(taskОчки: task); 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]

begin

minb := b[i];

nmin := i

end;

end;

writeln(taskКоманда-победитель чемпионата task, team[nmax], task набралаtask, maxb, taskочковtask);

writeln(taskНа последнем месте task, team[nmin], task c task, minb, task очкамиtask)

end.

Результаты совпадают.