Текст задания

Дана матрица размерности nхn (двумерный массив) и два множества N1 и N2. Вычислить количество элементов матрицы номера строк и столбцов которых принадлежат N1 и N2.

Исходный код программы

Program MN_8;
uses crt;
var
i,j,n,num:integer;
a: array[1..20,1..20] of integer;
n1,n2: Set of 1..255;


begin
clrscr;
num:=0;
n1:=[1,2];		{задаем множества n1 и n2}
n2:=[3,4];
Write('n=');		{задем размер матрицы}
readln(n);
For i:=1 to n do	{вводи элементы матрицы с помощью цикла}
 begin
  for j:=1 to n do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
   end;
 end;
for i:=1 to n do	{с помощью цикла считаем количество элементов, удовлетворяющих условию задачи}
 begin
  for j:=1 to n do
   begin
    if (i in n1) and (j in n2) then num:=num+1; 
   end;
 end;
Writeln('kolichestvo=',num);
readln;
end.

Результат работы программы