При поступлении в ВУЗ абитуриенты, получившие «двойку» на первом экзамене, ко второму не допускаются. В массиве A[N] записаны фа-милии экзаменующихся, а в массиве B[N] - их оценки, полученные на первом экзамене (генерируются случайным образом). Вывести на экран фамилии абитуриентов, не допущенных ко второму экзамену. Проте-стировать программу на следующих исходных данных:
Массив A: Иванов Петров Орлов Соколов Воронова Гусева Алексеев
Массив B: 2 4 5 4 2 3 3
Протестировать программу на приведённом выше примере.
Массив A: Иванов Петров Орлов Соколов Воронова Гусева Алексеев
Массив B: 2 4 5 4 2 3 3
Протестировать программу на приведённом выше примере.
More Questions From This User See All
Answers & Comments
Ответ:
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.