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

6. Разработайте программу на Паскале. Имеется таблица футбольного чемпионата (табл. 3.1 из §21), содержащая названия команд и количество набранных ими очков.



Решение задачи: 6. Разработайте программу на Паскале. Имеется таблица футбольного чемпионата (табл. 3.1 из §21), содержащая названия команд и количество набранных ими очков.

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

6. Разработайте программу на Паскале. Имеется таблица футбольного чемпионата (табл. 3.1 из §21), содержащая названия команд и количество набранных ими очков. Отсортируйте таблицу чемпионата

в порядке убывания очков, набранных командами. Для хранения названий команд и набранных ими очков используйте одномерные массивы. Все перестановки, которые происходят в массиве с набранными очками, должны дублироваться для элементов массива с названиями команд.

program Liga_1;

const

n = 16;

var

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

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

bb: string;

i, j, k, c: integer;

begin

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

for i := 1 to n do

begin

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

write(taskОчки: task); readln(b[i]);

end;

for i := 1 to n - 1 do

begin

k := i;

for j := i + 1 to n do

if b[j] > b[k] then k := j;

//обмен

bb := team[i]; c := b[i]; team[i] := team[k]; b[i] := b[k];

team[k] := bb; b[k] := c;

end;

for i := 1 to n do

writeln(taskКоманда task, team[i], task очки task, b[i])

end.