Const

N = 10;

Var

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

i: integer;

num: integer

j: integer;

buf: integer

k: integer;

begin

for k:=1 to N do begin

write('a[',k,']= '); readln(a[k]);

end;

writeln('исходный массив:');

for k:=1 to N do write(a[k]:5); writeln;

writeln('сортировка');

for i:=1 to N-1 do begin

num:=i;

for j:=i+1 to N do

if a[j]
buf:=a[i]; a[i]:=a[num]; a[num]:=buf;

for k:=1 to N do write(a[k]:5); writeln;

end;

writeln('отсортированный массив:');

for k:=1 to N do write(a[k]:5); writeln;

readln;

end.

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

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

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

4. Реализуйте программу для массива: [-8; 14; -5; 36; 99; 45]. Представить результаты

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

LB27    2   05.05.2020 23:25    0