Результаты статистических исследований реакции на очередную кадровую перестановку представлены в таблице. Обозначьте: М — множество о лиц мужского пола, С — сомневающиеся, П — множество преподавателей, О — множество тех, кто одобряет.

Изобразите множество (M∩П)∩О кругами Эйлера и определите мощность полученного множества.

//pascalabc.net 3.2 сборка 1318 const   n=3;   m=4; var    ma: array[1..n,1..m] of integer;   zerocount: array[1..m] of integer;   i,j,k,buf: integer; begin for i: =1 to n do   for j: =1 to m do     readln(ma[i][j]);   writeln('matrix: ');   for i: =1 to n do   begin     for j: =1 to m do       write(ma[i][j]: 4);     writeln;   end; writeln('count of zero elements: '); for j: =1 to m do begin   for i: =1 to n do     if ma[i][j]=0 then inc(zerocount[j]);   writeln(j,': ',zerocount[j]); end; for i: =1 to m-1 do   for j: =i+1 to m do     if zerocount[i]< zerocount[j] then       begin         for k: =1 to n do           begin             buf: =ma[k][i];             ma[k][i]: =ma[k][j];             ma[k][j]: =buf;           end;         buf: =zerocount[i];         zerocount[i]: =zerocount[j];         zerocount[j]: =buf;       end; writeln('final matrix: '); for i: =1 to n do begin   for j: =1 to m do     write(ma[i][j]: 4);   writeln; end; end. пример работы программы: matrix:     2   0   0   -1     0   0   1   -1   -2   -2   1   -2 count of zero elements: 1: 1 2: 2 3: 1 4: 0 final matrix:     0   2   0   -1     0   0   1   -1   -2   -2   1   -2