Ответы
Ответ:
5.
var i,j,temp:byte;
a:array[1..7] of byte;
begin
a[1]:=27;
a[2]:=10;
a[3]:=28;
a[4]:=6;
a[5]:=1;
a[6]:=3;
a[7]:=16;
for i:=1 to 6 do
for j:=1 to 6 do
begin
if a[j]>a[j+1] then
begin
temp:=a[j];
a[j]:=a[j+1];
a[j+1]:=temp;
end;
end;
for i:=1 to 7 do
writeln(a[i]);
end.
6.
В данной программе выполняется ввод названий команд и их очки.
Затем выполняется сортировка по убыванию очков и вывод на экран.
Переменная str является вспомогательной переменной для временного хранения названия команды при перемещении данных между элементами массива.
Если заменить строки (последнее задание), то сортировка будет по возрастанию названий команд.
Объяснение: