Написать программу на паскаль:

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

Если имеется в виду произведение наибольших в каждой строке элементов, то тогда так:

var

i, j, p:integer;

max:array[1 ... 5]of integer;

a:array[1 ... 5,1 ... 5]of integer;

begin

p:=1;

for i:=1 to 5 do

for j:=1 to 5 do

a[i, j]:=random (-10,10) ;

a[1,1]:=random (-10,-1) ;

for i:=1 to 5 do

begin

for j:=1 to 5 do

begin

write (a[i, j]:4) ;

if a[i, j]>max[i] then max[i]:=a[i, j];

end;

p:=p*max[i];

writeln;

end;

writeln ('P=', p) ;

end.