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

Задача

При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко второму экзамену не допускаются. Считая фамилии абитуриентов и их оценки после первого экзамена исходными данными, составить список абитуриентов, допущенных ко второму экзамену.

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

Нужно считать для каждого абитуриента фамилию и оценку после первого экзамена, а затем вывести только тех, у кого оценка не равна $$2$$, так как именно получившие «неудовлетворительно» ко второму экзамену не допускаются.

Для этого удобно использовать массив записей: в каждой записи хранятся фамилия и оценка. Сначала вводим все данные, затем просматриваем массив и печатаем тех абитуриентов, у которых $$o \ne 2$$.

const n=10;
type a=record
  f: string;
  o: byte;
end;
var b: array[1..n] of a; i: byte;
begin
  clrscr;
  for i:=1 to n do
  begin
    write(‘фамилия ‘,i,’-ого абитуриента: ‘);
    read(b[i].f);
    write(‘оценка: ‘);
    read(b[i].o);
    writeln;
  end;
  writeln(‘ко 2-му экзамену допущены: ‘);
  for i:=1 to n do
    if b[i].o<>2 then
      writeln(i,’) ‘,b[i].f);
end.