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