При поступлении в ВУЗ абитуриенты, получившие "двойку" на первом экзамене, ко второму не допускаются. В массиве A[N] записаны фамилии экзаменующихся, а в

массиве B[N] - их оценки, полученные на первом экзамене. Вывести на экран фамилии абитуриентов, не допущенных ко второму экзамену. Протестировать программу на следующих исходных данных:

Массив A: Иванов Петров Орлов Соколов Воронова Гусева Алексеев

Массив B: 2 4 5 4 2 3 3

Протестировать программу на приведённом выше примере.

Question

Информатика

Тонюха

25 марта, 12:58

При поступлении в ВУЗ абитуриенты, получившие "двойку" на первом экзамене, ко второму не допускаются. В массиве A[N] записаны фамилии экзаменующихся, а в

массиве B[N] - их оценки, полученные на первом экзамене. Вывести на экран фамилии абитуриентов, не допущенных ко второму экзамену. Протестировать программу на следующих исходных данных:

Массив A: Иванов Петров Орлов Соколов Воронова Гусева Алексеев

Массив B: 2 4 5 4 2 3 3

Протестировать программу на приведённом выше примере.

+5

Ответы (1)

Знаете ответ?

Михай · 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.