Anny_K

Здравствуйте!
Дан одномерный массив. Вывести его в порядке убывания.
Отсутствовала на уроке, когда решали эту задачу. Не могли бы вы помочь разобрать несколько команд?

Program pr1;
Uses CRT;
Const N=7;
Var A:array[1..N] of integer;
i,j,k:integer;

Begin
ClrScr;
For i:=1 to N do A[i]:=random(20);
For i:=1 to N do write(A[i]:3);
{начиная отсюда}
For i:=1 to N-1 do
For j:=1 to N-i do
If A[j]<A[j+1] then begin
k:=A[j];
A[j]:=A[j+1];
A[j+1]:=k;
end;
{заканчивая здесь}
writeln;
writeln('otsortirovannii massiv');
For i:=1 to N do write(A[i]:4);

Readln;
end.

Vladimir_S

Конечно, пожалуйста. Вам - сюда: Об алгоритмах упорядочения одномерных массивов