Question

Запишите полный текст программы и выполните для массива a= 0,1,9,2,4,3,6,5 сортировка по убыванию босова 72 стр 9 класс

Answer 1

const n = 8;

var a: array [1..n] of integer:=(0, 1, 9, 2, 4, 3, 6, 5);

i, j, imax, x: integer;

begin

 for i:=1 to n-1 do

 begin

   imax:=i;

   for j:=i+1 to n do if a[j]>a[imax] then imax:=j;

   x:=a[i];

   a[i]:=a[imax];

   a[imax]:=x;

 end;

 write('Отсортированный по убыванию массив: ');

 for i:=1 to n do

   write(a[i]+' ');

end.

Answer 2

const n=8;

var i,j,v,max,k:integer;

a:array [1..n] of integer = (0,1,9,2,4,3,6,5);

begin

write ('       Исходный массив: ');

for i:=1 to n do write(a[i],'  ');

writeln;

for i:=1 to n-1 do

begin

max:=i;

for j:=i+1 to n do

if a[j] > a[max] then max:=j;

v:=a[i];

a[i]:=a[max];

a[max]:=v

end;

write ('Преобразованный массив: ');

for i:=1 to n do write(a[i],'  ');

end.