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

Question

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

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

Answer 1

Если имеется в виду произведение наибольших в каждой строке элементов, то тогда так:
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.