При поступлении в вуз абитуриенты, получившие "двойку" на первом экзамене, ко второму не допускаются. в массиве a[n] записаны оценки экзаменующиеся, полученные на первом экзамене. подсчитать, сколько человек не допущено ко второму экзамену. язык программирования паскаль abc

Program p1;
const n=10;
var i,c:integer;
    a:array[1..n] of integer;
begin
  for i:=1 to n do  begin
  writeln('Введите оценку ',i,' экзаменующегося: ');
  read(a[i]);
  if(a[i]=2) then c:=c+1;
  end;
 
 writeln('К-во не допущенных: ',c);
end.

{1, 3, 4, 5, 7, 9}, {1, 5, 9}, {3, 4, 7}, {2, 6}

Объяснение:

1) Объединение A и C - все элементы, которые входят хотя бы в одно из множеств A, C. Но так как A - подмножество C (полностью входит в C), то объединение - это просто C: {1, 3, 4, 5, 7, 9}.

2) Пересечение A и C - все элементы, которые входят одновременно в оба множества A и C. В данном случае пересечение - это просто A: {1, 5, 9}.

3) Дополнение A до C - все элементы, которые лежат в C, но не в A: {3, 4, 7}.

4) Дополнение пересечения B и C до B: сюда должны входить все элементы, принадлежащие B, но не принадлежащие пересечению. Можно сообразить, что это превратится просто во все элементы B, не принадлежащие C: {2, 6}

№1

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln('F = ', F);
end.

№2

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln('F = ', F);
end.

№3

var a,b,c: real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
if ( a < b ) AND ( b < c ) then writeln('a < b < c')
else
if ( b > a ) AND ( a > c ) then writeln('b > a > c')
else
writeln('Неравенства не выполняются');
end.