Информатика 11 класс.Задача в паскале.

program ExamResults;

var
inputFile, outputFile: text;
lastName, firstName: string;
score: integer;
counter: integer;

begin
Assign(inputFile, 'input.txt');
Assign(outputFile, 'output.txt');
Rewrite(inputFile);

for counter := 1 to 15 do
begin
lastName := 'Фамилия' + IntToStr(counter);
firstName := 'Имя' + IntToStr(counter);
score := Random(71) + 30;
writeln(inputFile, lastName, ' ', firstName, ' ', score);
end;

Close(inputFile);
Reset(inputFile);
Rewrite(outputFile);

while not eof(inputFile) do
begin
read(inputFile, lastName, firstName, score);
if score > 80 then
writeln(outputFile, counter, ': ', Copy(firstName, 1, 1), '. ', lastName);
Inc(counter);
end;

Close(inputFile);
Close(outputFile);
end.
Наверно так

Ваш запрос не содержит конкретный код, который вы хотели бы увидеть, но я могу помочь вам с логикой решения этой задачи.

Создание файла с результатами:
– Считайте количество учеников (n).
– Создайте файл results.txt.
– Запустите цикл for от 0 до n-1.
– Внутри цикла считывайте фамилию, имя и баллы каждого ученика.
– Разделите строку с баллами на подстроки по пробелам.
– Запишите полученные данные в файл results.txt, используя форматированный вывод.
2) Вывод результатов:

– Откройте файл results.txt для чтения.
– Пройдитесь по всему файлу, считывайте каждую строку и разбирайте ее на подстроки.
– Если баллы ученика больше 80, добавьте его имя в список для вывода.
– Откройте новый файл для записи.
– Выведите имена учеников из списка на новую строку.
3) Добавление нумерации и сокращение имени:

– Пройтись по списку результатов и изменить формат вывода, добавляя нумерацию и сокращая имя.

Если у вас есть конкретные вопросы по этому коду, я с радостью помогу вам разобраться.