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]
for k:= 1 to N do write (a[k]:5);writeln;
end;
writeln('отсортировка массив:');
for k=1 to N do (a[k]:5);writeln;
readln;

end

Во Определить метод сортировки
2)Возможно ли применить данный метод сортировки для сортировки массивов по возрастанию,так и для сортировки массивов по убыванию?
3)Опишите последовательность действий и реализуйте их программе,если ответ на второй во будет положительным
4)Реализуйте программу для массива [-8;14;-5;36;99;45] Представить результаты
5)Составить алгоритм работы представленной программы словесной формы

dilyakon    2   11.04.2020 18:45    0