Предмет: Информатика,
автор: aniyn
В файле записаны данные о результатах сдачи экзамена. Каждая строка содержит фамилию, имя и количество баллов, разделенные пробелами:
<Фамилия> <Имя> <Количество баллов>
Вывести в другой файл данные учеников, которые получили больше 80 баллов. Список должен быть отсортирован по убыванию балла. Формат выходных данных:
П. Иванов 98
И. Петров 96
...
Ответы
Автор ответа:
0
// 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.Close
end.
// Внимание! Если программа не работает, обновите версию!
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.Close
end.
Приложения:
Похожие вопросы
Предмет: Алгебра,
автор: dveboltuski
Предмет: Русский язык,
автор: madiiianarbekova82
Предмет: Физика,
автор: Аноним
Предмет: География,
автор: nzabara