// 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
Write(f, nums[i]:8:2);
if ((i + 1) mod 8 = 0) then Println(f);
end;
f.Close;
end.
Проблемы, вопросы или предложения по работе программы в комментарии.
// 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.
Проблемы, вопросы или предложения по работе программы в комментарии.