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

Ангелмоямама Ангелмоямама    3   02.06.2019 23:51    5

Ответы
перйзат перйзат  03.07.2020 15:24

// 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.

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика