Составление и отладка программ с использованием множества

[ВалерОК]

Составить программу, которая вычисляет сумму тех элемен¬тов двумерного массива, номера строк и столбцов которых при¬надлежат соответственно непустым множествам S1 и S2.

[Serge_Bliznykov]

для массива A размером N x M

sum := 0;
for i:=1 to N do
  for j:=1 to M do
    if (i in S1) and (j in S2) then sum := sum + A[i,j];

и всё.

[ВалерОК]

спасиба, надеюсь что правильно)