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.