Отсортировать по возрастанию набор чисел, находящийся в одном файле, и записать его в другой файл

@edvard_sergeev · Регистрация: 02.10.2012

Author24 — интернет-сервис помощи студентам

Отсортировать по возрастанию набор чисел, находящийся в одном файле, и записать его в другой файл.

ещё одна задачка в паскале, помогите пожалуйста ребят

@Leshak · 01.11.2012, 12:16

Pascal

Uses crt;
const n = 100;
var
 Arr: array [ 1 .. n ] of integer;
 input, output: text;
 i, j, m, temp, number: integer;
begin
clrscr;
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
m:=1;
 
while not eoln(input) do begin
      read(input,Arr[m]);
      inc(m);
end;
 
close(input);
m:=m-1;
 
for i:=1 to m do begin
    write(Arr[i],' ');
end;
 
writeln;
 
for j:=1 to m-1 do
 for i:=1 to m-1 do
   if arr[i] > arr[i+1] then begin
    temp:=arr[i];
    arr[i]:=arr[i+1];
    arr[i+1]:=temp;
   end;
 
for i:=1 to m do begin
    write(output,Arr[i],' ');
    write(Arr[i],' ');
end;
close(output);
readkey;
end.

@edvard_sergeev 0 / 0 / 0 Регистрация: 02.10.2012 Сообщений: 18
		1
	Отсортировать по возрастанию набор чисел, находящийся в одном файле, и записать его в другой файл 01.11.2012, 11:41. Показов 1697. Ответов 1 Метки нет (Все метки) Отсортировать по возрастанию набор чисел, находящийся в одном файле, и записать его в другой файл. ещё одна задачка в паскале, помогите пожалуйста ребят 0

	01.11.2012, 12:16

Отсортировать по возрастанию набор чисел, находящийся в одном файле, и записать его в другой файл

Решение