• В файле записаны данные о результатах сдачи экзамена. Каждая строка содержит фамилию, имя и количество баллов, разделенные пробелами:
    <Фамилия> <Имя> <Количество баллов>
    Вывести в другой файл данные учеников, которые получили больше 80 баллов. Список должен быть отсортирован по убыванию балла. Формат выходных данных:
    П. Иванов 98
    И. Петров 96
    ...

Ответы 1

  • // 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.
    answer img
    • Автор:

      nataly
    • 4 года назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years