Произведение матрицы

[BaronVik]

Матрица А (N,N) Составить программу для вычесления произведения положительных элементов матрицы, расположенных выше главной диагонали.

[DoDge_VipeR]

p:=1;
for i:=1 to n do
for j:=i+1 to n do
p:=p*a[i,j];

[Stilet]

Хы. А еще можно вот так:

PROCEDURE ВыводМассива;
VAR i,j,e:INTEGER;
BEGIN e:=1;
 FOR i:=0 TO LEN(a)-1 DO 
  FOR j:=0 TO LEN(a[i])-1 DO
    a[i,j]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
   IF j>i THEN e:=e*a[i,j]; END;
    StdLog.Int(a[i,j]);
    StdLog.Tab;
  END;
    StdLog.Ln;

 END;    
  StdLog.Int(e);
  StdLog.Ln; 
END ВыводМассива;