Информатика, опубликовано 20.10.2019 14:27
Напишите программу, которая сортирует массив целых чисел в порядке возрастания (неубывания). размер массива заранее неизвестен. исходные данные записаны в файл input.txt , отсортированный массив нужно вывести в файл output.txt .
входные данные
первая строка входного файла input.txt содержит размер массива. во второй строке записаны все элементы массива, разделённые пробелами.
выходные данные
программа должна вывести в файл output.txt все элементы отсортированного массива в одной строке, разделив их пробелами.
примеры
входные данные
5
5 1 4 2 3
выходные данные
1 2 3 4 5
Ответ оставил: Гость
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.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01