Question

Дан массив z из 8 элементов. Напишите программный код, отображающий элементы массива z в порядке возрастания и убывания, и выведите результат.​

Answer 1

program sortirovka;

var

 z: array[1..8] of integer = (4, 2, 7, 1, 8, 5, 3, 6);

 i, j, temp: integer;

begin

 // сортировка в порядке возрастания

 for i := 1 to 7 do

   for j := i+1 to 8 do

     if z[i] > z[j] then begin

       temp := z[i];

       z[i] := z[j];

       z[j] := temp;

     end;

 

 writeln('Цифры в порядке возрастания:');

 for i := 1 to 8 do

   write(z[i], ' ');

 writeln;

 // сортировка в порядке убывания

 for i := 1 to 7 do

   for j := i+1 to 8 do

     if z[i] < z[j] then begin

       temp := z[i];

       z[i] := z[j];

       z[j] := temp;

     end;

 writeln('Цифры в порядке убывания:');

 for i := 1 to 8 do

   write(z[i], ' ');

 writeln;

end.