В файле записаны данные о результатах сдачи экзамена. Каждая строка содержит фамилию, имя и количество баллов, разделенные пробелами:
<Фамилия> <Имя> <Количество баллов>
Вывести в другой файл данные учеников, которые получили больше 80 баллов. Список должен быть отсортирован по убыванию балла. Формат выходных данных:
П. Иванов 98
И. Петров 96
...
// PascalABC.NET 3.2, сборка 1449 от 23.05.2017// Внимание! Если программа не работает, обновите версию!type R=(string,integer);begin var a:=ReadAllLines('input.txt'); var L:=new List<R>; foreach var s in a do begin var w:=s.ToWords.ToArray; if w[2]>'80' then L+=(w[1][1]+'. '+w[0],w[2].ToInteger); end; var f:=OpenWrite('output.txt'); L.OrderByDescending(x->x[1]).ForEach(x->Writeln(f,x[0],' ',x[1])); f.Closeend.