Составить программу на Паскаль ABC произведение всех неотрицательных элементов двумерного массива

[NikOlga]

Найти произведение всех неотрицательных элементов двумерного массива

спасибо

Программу на Паскале АВС

[newerow1989]

var p:array[1..10,1..10] of integer;
    i,j,pr:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=-10+Random(15);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   pr:=1;
   For i:=1 to 10 do
      For j:=1 to 10 do
         If p[i,j]>0 then
            pr:=pr*p[i,j];
   Writeln(pr);
   Readln;
end.