Question

Помогите пожалуйста с простой сортировкой в PASCAL!

Answer 1

Ответ:

var j,i,k,n:integer;

m:array[1..1000] of integer;

begin

read(n,k);

//Ввод элементов массива

for i:=1 to n do

read(m[i]);

//Сортировка по возрастанию

for i:=1 to k do

for j:=i to k do

if m[j]<m[i] then swap(m[i],m[j]);

//Сортировка по убыванию

for i:=k+1 to n do

for j:=i to n do

if m[j]>m[i] then swap(m[i],m[j]);

//Вывод элементов массива

for i:=1 to n do

print(m[i]);

end.