Одномерный массив, Pascal

[Anny_K]

Одномерный массив, Pascal

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

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:=random(20);
For i:=1 to N do write(A: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:4);

Readln;
end.

 

[Vladimir_S]

Не могли бы вы помочь разобрать несколько команд?

Конечно, пожалуйста. Вам - сюда: http://www.tehnari.ru/f41/t72821/