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

[BaronVik]

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

[Namolem]

а что непонятно?

[ROMA2PVT]

Program mas;
var
a:array[1..100,1..100] of integer;
i,j,n,m,pr:integer;
begin
Write('Введите количество строк:');
readln(n);
Write('Введите количество столбцов:');
readln(m);
writeln('Исходный массив: ');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
Write(a[i,j]:3);
end;
writeln;
end;
writeln;
pr:=1;
for i:=1 to n do
for j:=1 to m do
if i<j then
begin
if a[i,j]>0 then
pr:=pr*a[i,j];
end;
writeln;
writeln(pr,' ');
Writeln;
end.

Вот так.