46.При
поступлении в вуз абитуриенты, получившие двойку на первом экзамене, ко второму
не допускаются. В массиве A[n] записаны оценки экзаменующихся, полученные на
первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену.
Решение
program
lab46;
var
b:array[1..100,1..3]
of string;
n,k,i,j:integer;
begin
k:=0;
writeln('Vvedite
n:');
readln(n);
for i:=1
to n do
begin
writeln('Vvedite
familiu abiturienta:');
readln(b[i,1]);
writeln('Vvedite
ocenku abiturienta:');
readln(b[i,2]);
end;
for i:=1
to n do
begin
for j:=1
to 2 do
write(b[i,j],'
');
writeln;
end;
writeln('Nedopusheni:');
for i:=1
to n do
if
(b[i,2]<'3') then
begin
write(b[i,1],' ');
writeln;
k:=k+1;
end;
writeln('Kolichestvo
nedopusenih: ', k);