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

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

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

Program MN_6;
uses crt;
var
i,j,n,s:integer;
a: array[1..20,1..20] of integer;
m1,m2: Set of 1..255;


begin
clrscr;
s:=0;
m1:=[1,2];		{задаем множества m1 и m2}
m2:=[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 m1) and (j in m2) then s:=s+a[i,j]; {если условие выполняется, то ссумируем элементы матрицы в переменной s}
   end;
 end;
Writeln('summa=',s);{выводим ответ}
readln;
end.

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