Двумерный массив

[metorok]

Двумерный массив

помогите еще задачку решить пожалуйста:tehnari_ru_942:

Установить, имеются ли в данном двумерном массиве элементы, наибольшие в своей строке и в столбце одновременно, если такие элементы есть, вывести их на экран.

 

[Gruvi]

Язык какой ?:telepat:

 

[metorok]

паскаль :tehnari_ru_942:

 

[Vladimir_S]

Установить, имеются ли в данном двумерном массиве элементы, наибольшие в своей строке и в столбце одновременно, если такие элементы есть, вывести их на экран.

Например, так:

Const
 N=8;
Var
 A:Array[1..N,1..N] of Byte;
 i,j,Im,Jm,p:Byte;
 b:boolean;
Begin
 Randomize;
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Random(256);
     Write(A[i,j]:4);
    end;
   Writeln;
  end;
 Writeln;
 p:=0;
 For Im:=1 to N do
  For Jm:=1 to N do
   begin
    b:=true;
    for i:=1 to N do
     if (i<>Im) and (A[i,Jm]>A[Im,Jm]) then b:=false;
    for j:=1 to N do
     if (j<>Jm) and (A[Im,j]>A[Im,Jm]) then b:=false;
    If b then
     begin
      Writeln('A[',Im,',',Jm,']= ',A[Im,Jm]);
      Inc(p);
     end;
   end;
 If p=0 then Writeln('No such elements!');
 Readln
End.

 

[metorok]

спасибо еще раз Владимир!!!)