Question

Напишите программу, которая сортирует массив целых чисел в порядке возрастания (неубывания). Размер массива заранее неизвестен. Исходные данные записаны в файл input.txt , отсортированный массив нужно вывести в файл output.txt .

Входные данные
Первая строка входного файла input.txt содержит размер массива. Во второй строке записаны все элементы массива, разделённые пробелами.

Выходные данные
Программа должна вывести в файл output.txt все элементы отсортированного массива в одной строке, разделив их пробелами.

Примеры
входные данные
5
5 1 4 2 3
выходные данные
1 2 3 4 5

Answer 1

type z=array of integer;

var a: z;

i,j,t,n: integer;

f: text;

begin

assign(f,'input.txt');

reset(f);

readln(f,n);

setlength(a,n);

for i:=0 to n-1 do read(f,a[i]);

close(f);

for i:=0 to n do

for j:=0 to n-2 do

if (a[j]>a[j+1]) then

begin

t:=a[j];

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

a[j+1]:=t;

end;

assign(f,'output.txt');

rewrite(f);

for i:=0 to n-1 do write(f,a[i],' ');

close(f);

end.