Question

1. Файл f1.txt содержит 200 чисел в 5 колонок. Создать программу считывания этих чисел и их вывода в файл f2.txt с сортировкой по убыванию в 8 колонок с точностью 2 знака после десятичной точки.

Answer 1

// PascalABC.NET

// Версия 3.4.2, сборка 1956 (1/30/19)

begin

 var nums := ReadAllText('f1.txt').ToReals.OrderDescending.ToArray;

 var f := OpenWrite('f2.txt');

 for var i := 0 to nums.Count - 1 do

 begin

   Write(f, nums[i]:8:2);

   if ((i + 1) mod 8 = 0) then Println(f);

 end;

 f.Close;

end.

Проблемы, вопросы или предложения по работе программы? Прошу в комментарии.