Задача на матрицу Опции

[Гость]

Дана матрица размерности N*N, найти минимальный (максимальный) элемент, и заменить нулями элементы в строке и столбце, на пересечении которых расположен данный элемент.
А вот с эти разобраться не получается, подскажите пожалуйста...

На надо пихать в одну тему сто разных задач, перемещено

Сообщение отредактировано: klem4 - 20.01.2006 15:54

[Alla]

Посмотрите пожалуйста:

Код

program test1;

const n=3; m=3;

var
a : array[1..n, 1..m] of integer;
i,j,sum,s,jmin,imin : integer;

begin
  writeln('Vvod elementov', n, 'x', m);
  imin := 1;
  jmin := 1;

  for i:=1 to n do
    for j:=1 to m do
     begin
       readln(a[i,j]);
     end;

  for i:=1 to n do
    begin
     writeln;
      for j:=1 to m do
      write(a[i,j]);
    end;

    writeln;

  if a[i,j] < a[imin,jmin] then
    begin
     imin := i;
     jmin := j;
    end;

  for j:=1 to m do
    a[imin,j]:=0;
  for i:=1 to n do
    a[i,jmin]:=0;

  for i:=1 to n do
    begin
     writeln;
      for j:=1 to m do
       write(a[i,j]);
    end;
readln;
end.

На нули меняется пересечение перdой строки первго столбца ???
И минимальный элемент мне так и не удалось вывести, выводится только наибольший