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.