Ребята, помогите...

[irinka123]

onst n=10;
type номер=1..n;
матрица=array [номер,*номер]*of*real;
ном*=*set*of*номер;


Описать функцию sum(A,S1,S2), вычисляющую сумму тех элементов матрицы*А, номера строк и столбцов которых принадлежат соответственно
непустым множествам*S1*и*S2*типа*ном.

[alex_fcsm]

В цикле пробегайте по матрице и проверяет чтобы номера принадлежали множествам

for i:=1 to num1 do
 if i in s1 then
  for j:=1 to num2 do
 if j in s2 then
  sum:=sum+a[i,j];