Ввести одномерный массив A, в котором число элементов кратно трём, вывести его. Разбить массив на три равные части, каждую из которых отсортировать по возрастанию.

program zz1;

const n = 30; / / задаем количество чисел в массиве

var i, k, j, p:integer; / / задаем переменные целого типа

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

a, b, c:array[1 ... n div 3] of integer;

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

m[i]:=random (51);

k:=n div 3;

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i : = 1 to k do

a[i]:=m[i];

for i : = 1 to k-1 do

for j : = 1 to k-i do

if a[j] > a[j+1] then begin

p : = a[j];

a[j] : = a[j+1];

a[j+1] : = p;

end;

writeln (' Первая часть массива:');

for i:=1 to k do / / выводим полученный массив на экран

write (a[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i : = 1 to k do

b[i]:=m[i+k];

for i : = 1 to k-1 do

for j : = 1 to k-i do

if b[j] > b[j+1] then begin

p : = b[j];

b[j] : = b[j+1];

b[j+1] : = p;

end;

writeln (' Вторая часть массива:');

for i:=1 to k do / / выводим полученный массив на экран

write (b[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i : = 1 to k do

c[i]:=m[i+2*k];

for i : = 1 to k-1 do

for j : = 1 to k-i do

if c[j] > c[j+1] then begin

p : = c[j];

c[j] : = c[j+1];

c[j+1] : = p;

end;

writeln (' Третья часть массива:');

for i:=1 to k do / / выводим полученный массив на экран

write (c[i],' ');

end.