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.

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

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

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

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

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

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

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

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

 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: рада, да возмоности нет

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

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

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

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

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