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

[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.

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

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

[Алена]

А что именно не верно ?

То, что программа не будет компилироваться..

[scaj]

Кто может дать линк на рабочий вариант, очень прошу, завтра сдать нужно

[Гость]

Тебе же сказали - поиском пользуйся... Ключевое слово - "седловые"

[scaj]

Теперь понял ) keyword дали и все нашлось

[Адель]

То, что программа не будет компилироваться..

хм...у меня компилиться, только в алгоритме дырка

...аа....динам мас)

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

[Артемий]

 VAR
  a:Array of Array of integer;
  i,j,k,n,min,jmin:Integer;
  f:Boolean;
begin
  readln(n);
  SetLength(a,n,n);

У тебя Turbo Pascal есть? Скачать отсюда - Turbo Pascal. Для Delphi есть другой раздел..

[Адель]

извинте за оффтоп
2Артемий2: рада, да возмоности нет

[Rom1k]

Напишите кто-нить цикл для перемножения двух матриц

[Алена]

Во-первых, почему в чужой теме ?

Во-вторых: Массивы. Матрицы. Типичные задачи.

Сообщение отредактировано: Алена - 22.03.2007 22:43

[klem4]

scaj, Матрицы, строки, файлы

Поиск, поиск и еще раз поиск.