Используя обменную сортировку, отсортировать массив по убыванию

Сделать в динамическом массиве чтобы все элементы вводились с клавиатуры

Question

Информатика

Иваня

19 июня, 20:33

Используя обменную сортировку, отсортировать массив по убыванию

Сделать в динамическом массиве чтобы все элементы вводились с клавиатуры

+4

Ответы (1)

Знаете ответ?

Левонтий · Answer 1

Var

i, j, k, n:integer;

a:array of integer;

begin

Write ('Введите количество элементов массива: ') ; Read (n) ;

SetLength (a, n) ;

Writeln ('Введите элементы массива') ;

for i:=0 to n-1 do Read (a[i]) ;

for i:=0 to n-2 do

for j:=i+1 to n-1 do

if a[i]
for i:=0 to n-1 do Write (a[i],' ') ;

Writeln

end.

Тестовое решение

Введите количество элементов массива: 10

Введите элементы массива

57 18 31 40 45 75 85 43 93 27

93 85 75 57 45 43 40 31 27 18

Используя обменную сортировку, отсортировать массив по убываниюСделать в динамическом массиве чтобы все элементы вводились с клавиатуры

Используя обменную сортировку, отсортировать массив по убыванию

Сделать в динамическом массиве чтобы все элементы вводились с клавиатуры