Question

Даю 100 баллов.
Решите 5 и 6 задание.

Answer 1

Ответ:

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 является вспомогательной переменной для временного хранения названия команды при перемещении данных между элементами массива.

Если заменить строки (последнее задание), то сортировка будет по возрастанию названий команд.

Объяснение: