Сортировать 63 элемента по увеличению пузырьковым методом. Решение записать на языке Pascal.

Const

m = 63;

var

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

i, j, k: integer;

begin

randomize;

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

for i : = 1 to m do begin

arr[i] : = random (62) + 1;

write (arr[i]:4);

end;

writeln; writeln;

for i : = 1 to m-1 do

for j : = 1 to m-i do

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

k : = arr[j];

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

arr[j+1] : = k

end;

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

for i : = 1 to m do

write (arr[i]:4);

writeln;

readln

end. Ну как то так

Это как?