При поступлении в ВУЗ абитуриенты, получившие «двойку» ** первом экзамене, ко второму не...

Question

При поступлении в ВУЗ абитуриенты, получившие «двойку» на первом экзамене, ко второму не допускаются. В массиве A[N] записаны фа-милии экзаменующихся, а в массиве B[N] - их оценки, полученные на первом экзамене (генерируются случайным образом). Вывести на экран фамилии абитуриентов, не допущенных ко второму экзамену. Проте-стировать программу на следующих исходных данных: Массив A: Иванов Петров Орлов Соколов Воронова Гусева Алексеев Массив B: 2 4 5 4 2 3 3 Протестировать программу на приведённом выше примере.

Answer 1

Ответ:

var

   i, n: integer;

   names: array[1..100] of string;

   marks: array[1..100] of byte;

begin

   write('n =');

   readln(n);

   

   for i := 1 to n do

   begin

       write('Фамилия =');

       readln(names[i]);

       write('Оценка =');

       readln(marks[i]);

   end;

   

   for i := 1 to n do

       if marks[i] = 2 then

           writeln(names[i]);

end.