Матрица Опции

[scaj]

plz хелп
Дана матрица В (N,N) Напечатать индексы элементов, которые являются наименьшими в своей строке и одновременно наибольшими в своем столбце.
thnx

[Адель]

вот..

 VAR
  a:Array of Array of integer;
  i,j,k,n,min,jmin:Integer;
  f:Boolean;
begin
  readln(n);
  SetLength(a,n,n);
  randomize;
  for i:=0 to n-1 do
    for j:=0 to n-1 do
      a[i,j]:=random(10);

  for i:=0 to n-1 do
  begin
    for j:=0 to n-1 do
      write (a[i,j],' ');
    writeln;
  end;
  writeln;
  f:=true;
  for i:=0 to n-1 do
  begin
    min:=a[i,0];
    for j:=1 to n-1 do
    begin
      if a[i,j]<min then begin min:=a[i,j]; jmin:=j; end;
    end;
  for k:=0 to n-1 do
    if a[k,jmin]>min then f:=false;
  if f then writeln(min);
  end;
  readln;
end.

хотя это не полностью правильно


Сообщение отредактировано: Адель - 20.03.2007 16:21

[scaj]

вот..

 VAR
  a:Array of Array of integer;
  i,j,k,n,min,jmin:Integer;
  f:Boolean;
begin
  readln(n);
  SetLength(a,n,n);
  randomize;
  for i:=0 to n-1 do
    for j:=0 to n-1 do
      a[i,j]:=random(10);

  for i:=0 to n-1 do
  begin
    for j:=0 to n-1 do
      write (a[i,j],' ');
    writeln;
  end;
  writeln;
  f:=true;
  for i:=0 to n-1 do
  begin
    min:=a[i,0];
    for j:=1 to n-1 do
    begin
      if a[i,j]<min then begin min:=a[i,j]; jmin:=j; end;
    end;
  for k:=0 to n-1 do
    if a[k,jmin]>min then f:=false;
  if f then writeln(min);
  end;
  readln;
end.

хотя это не полностью правильно

Спасибо!! А что именно не верно ?