Question

Const
N = 10;
Var
i, j, buf, k: integer;
a: array[1..10] of integer;
begin
for i:=1 to N do begin
write('a[',i,']= '); readln(a[i]);
end;
writeln('исходный массив:');
for i:=1 to N do write(a[i]:5); writeln;
writeln('сортировка:');
for i:=1 to N do begin
for j:=N-1 downto i do
if a[j]>a[j+1] then begin
buf:=a[j]; a[j]:=a[j+1]; a[j+1]:=buf;
end;
for k:=1 to N do write(a[k]:5);
writeln;
end;
writeln('отсортированный массив:');
for i:=1 to N do write(a[i]:5); writeln;
readln;
end.

Вопросы

1. Определить метод сортировки.

2. Возможно ли применить данный метод сортировки для сортировки массивов по возрастанию, так и для сортировки массивов по убыванию?

3. Опишите последовательность действий и реализуйте их в программе, если ответ на второй вопрос будет положительным.

4. Реализуйте программу для массива: [56; 48; 36; 47; 12]. Представить результаты.

5. Составить алгоритм работы представленной программы в словесной форме.