Запись чисел из файла 1, и запись в файл 2 в отсортированном виде - PascalABC.NET

Формулировка задачи:

Задание: Есть файл 1, в нем находятся числа, нужно их отсортировать по возрастанию и записать в файл 2. У меня получается бред какой-то, вроде бы просто, но не так как кажется.

var f,t:text;
    a:array[1..1000] of integer;
    n,i,x,j,min,nomer_min:integer;
begin
assign(t,'d:\input.txt');
reset(t);
n:=0;
assign(f,'output.txt');
    rewrite(f);
while not eof(t) do
 begin
  inc(n);
  read(t,a[n]);
 end;    
 for i := 1 to n-1 do
  begin
    min := A[i];
    nomer_min := i;
    for j := (i + 1) to n do
    begin
      if A[j] < min then
      begin
        min := A[j];
        nomer_min := j;
      end;
    end;
    A[nomer_min] := A[i];
    A[i] := min;
   
    for j := 1 to n do
    write(f,A[j]:4);
    end;
    close(f);
    close(t);
end.

Решение задачи: «Запись чисел из файла 1, и запись в файл 2 в отсортированном виде»

textual
                            Листинг программы 
                        

                            {$reference System.Core.dll}
uses System.Linq, System.IO;
 
begin
  &File.WriteAllText('output.txt', string.Join(' ', 
    &File.ReadAllText('input.txt').Split('  '.ToCharArray()).
      Select(StrToInt).OrderBy((x : integer) -> x).Select((x : integer) -> IntToStr(x)).ToArray()));
end.
                        

Оцени полезность:

8 голосов , оценка 4.125 из 5

Похожие ответы