Работа 3.9 Упр.6 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 6. Получить анкетные данные учеников, участвовавших в олимпиаде по информатике и заработавших не менее 30 баллов.

Подробный ответ

Нужно вывести анкетные данные тех учеников, у которых число набранных баллов больше 30. Для этого удобно использовать запись students с полями: фамилия, номер группы, номер школы и баллы. Затем в цикле просмотреть все записи и напечатать только те, для которых $$mark > 30$$.

const
  line = ‘———————‘;
  count = 3;
type
  students = record
    name: string[15];
    group: byte;
    school: byte;
    mark: byte;
  end;
var
  arr: array[1..count] of students;
  i: byte;
begin
  writeln(‘Введите данные о ‘, count, ‘ студентах:’);
  for i := 1 to count do
  begin
    write(‘Фамилия ‘, i, ‘-го студента: ‘);
    readln(arr[i].name);
    write(‘Номер группы: ‘);
    readln(arr[i].group);
    write(‘Номер школы: ‘);
    readln(arr[i].school);
    write(‘Набранные баллы: ‘);
    readln(arr[i].mark);
    writeln(line);
  end;
  writeln(‘Данные студентов, набравших более 30 баллов:’);
  writeln(‘| Фамилия: | Группа: | Школа: |’);
  for i := 1 to count do
    if (arr[i].mark > 30) then
    begin
      write(‘ ‘, arr[i].name, ‘ ‘);
      write(arr[i].group, ‘ ‘);
      writeln(arr[i].school, ‘ ‘);
    end;
  writeln(line);
end.