Информатика

Калимулла

20 февраля, 11:02

Задача. Дан массив. Рассортировать элементы

массива по убыванию.

program sortirovka;

var n, k, z, x : integer;

a : array[1 ... 50] of integer;

begin

write ('введи размер массива: ') ; readln (n) ;

for k:=1 to n do a[k]:=random (10) - 7;

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

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

for z:=1 to n-1 do

for k:=1 to n-z do

if a[k] then begin

x:=a[k];

a[k]:=a[k+1];

a[k+1]:=x

end;

writeln;

writeln ('Рассортированный массив:') ;

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

end.