Записать строки в файл в порядке убывания оклада служащего - PascalABC.NET

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

На вход программы подается натуральное число N, не превосходящее 100,а за ним N строк следующей структуры: Служащий-ФИО(текстовое 50 символов),должность(текстовое 15 символов),оклад(вещественное). Программа должна записать строки в файл EMPLOYEE.TXT в порядке убывания оклада служащего.
Пример ввода Вывод в файл
3  
Иван Иваныч столяр 200 Петр Ильич директор 500
Петр Ильич директор 500 Анна Ивановна завлаб 300
Анна Ивановна завлаб 300 Иван Иваныч столяр 200

Код к задаче: «Записать строки в файл в порядке убывания оклада служащего - PascalABC.NET»

textual
uses Arrays, System.IO;
begin
  &File.WriteAllLines('EMPLOYEE.TXT',
    ReadArrString(ReadLnInteger()).OrderByDescending(s -> StrToFloat(s.Split(' ').Last())).ToArray()
    Encoding.Default)
end.

11   голосов, оценка 3.818 из 5


СОХРАНИТЬ ССЫЛКУ