нужна Блок-схема... посмотрите код

[Настёна_19]

от код :

написать программу, которая располагает элементы одномерного массива A [1...n] в зависимости от параметра q в порядке убывания


program Sortirovka;

var
N, I, J, K, Pr: Integer; A: Array [1..30] Of Integer;

begin
Write('введите количество элементов: ');
ReadLn(N);
for I := 1 To N Do
begin
Write('введите A[', I, '] ');
Readln(A[I]);
end;
WriteLn;
for I := 1 To N - 1 Do
begin
K := I;
for J := I + 1 To N Do
if A[J] >= A[K] Then K := J;
Pr := A[I];
A[I] := A[K];
A[K] := Pr;
end;
for I := 1 To N Do
Write(A[I], ' ');
end.