Дан одномерный массив: 8, 3, - 9, 10, 0. Отсортировать элементы массива по убыванию.

Question

Информатика

Савёл

9 марта, 12:18

Дан одномерный массив: 8, 3, - 9, 10, 0. Отсортировать элементы массива по убыванию.

+2

Ответы (1)

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

Сибилла · Answer 1

Uses crt;

const n=5;

var a:array[1 ... n] of integer;

i, p:integer;

begin

for i:=1 to n do

read (a[i]);

repeat

p:=0;

for i:=1 to n-1 do

if a[i]
begin

p:=1;

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

a[i+1]:=a[i]-a[i+1];

a[i]:=a[i]-a[i+1];

end;

until p=0;

for i:=1 to n do

writeln (a[i]);

end.