13. В файле записаны данные о результатах сдачи экзамена. Каждая строка содержит фамилию, имя и количество , разделённые одним пробелом:

<Фамилия> <Имя> <Количество >

Вывести фамилии и имена тех учеников, которые получили больше

14. В задаче 13 добавить к списку нумерацию, например:

1) Иванов Вася

2) Петров Петя

15. В задаче 14 сократить имя до одной буквы и поставить перед фамилией:

1) В. Иванов

2) П. Петров

*17. В задаче 15 отсортировать список по убыванию полученного (вывести в выходной файл).
var

fin, fout: text;

s: string;

f, im, b: array[1..100] of string;

s1, i, n, x, code: integer;

begin

assign(fin, 'input.txt');

reset(fin);

n := 0;

while not eof(fin) do

begin

readln(fin, s);

inc(n);

f[n] := copy(s, 1, pos(' ', s));

delete(s, 1, pos(' ', s));

im[n] := copy(s, 1, pos(' ', s));

delete(s, 1, pos(' ', s));

b[n] := copy(s, 1, 3);

s:= s1 + ')' + im[1] + '.' + f[n];

end;

close(fin);

assign(fout, 'output.txt');

rewrite(fout);

for i := 1 downto n do

begin

val(b[n], x, code);

if x >= 80 then

writeln(fout, s);

end;

close(fout);

end.

нури43    1   28.03.2021 17:57    94