Дан массив из n элементов отсортировать его по убыванию

Question

Информатика

Лукьян

20 апреля, 21:06

Дан массив из n элементов отсортировать его по убыванию

+1

Ответы (1)

Знаете ответ на вопрос?

Альберт · Answer 1

Var

a:array [1 ... 10] of integer;

i, n, p, j:integer;

begin

writeln ('vvedite n') ;

readln (n) ;

writeln ('vvedite massiv') ;

for i:=1 to n do

readln (a[i]) ;

for i:=1 to n do

for j:=i to n do

if a[i]
begin

p:=a[i];

a[i]:=a[j];

a[j]:=p;

end;

writeln ('posle sortirovki') ;

for i:=1 to n do

write (a[i],' ') ;

writeln () ;

end.