Предмет: Информатика, автор: leskali

Задача. Дан массив. Рассортировать элементы
массива по убыванию.
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.

Ответы

Автор ответа: islamshayakhmetov
1

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:=z+1 to n do

if a[k]>a[z] then begin

x:=a[k];

a[k]:=a[z];

a[z]:=x

end;

writeln;

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

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

end.

Похожие вопросы