Задача. Дан массив. Рассортировать элементы
массива по убыванию.
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.
Задача. Дан массив. Рассортировать элементы
массива по убыванию.
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.
массива по убыванию.
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.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Пример вывода:
введи размер массива: 10
Исходный массив:
3 -5 6 -2 -4 8 1 -7 5 -6
Рассортированный массив:
8 6 5 3 1 -2 -4 -5 -6 -7