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

Question

Информатика

Иля

26 августа, 07:03

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

+3

Ответы (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.