Pascal.

[H4t]

Нужна помощь в решении. А именно помощь в выводе столбцаа и строки, на пересечении которых расположен мин. элемент (т.е. как сам мин. элемент найти понятно, но дальше не совсем). Спасибо заранее.
//Вывести столбец и строку двухмерного массива N×M, на пересечении которых расположен минимальный элемент;

program n_4;
var
A:array[1..10,1..10] of integer;
i,j,n,m,min:integer;
//---Матрица---//
begin
write('vvedite m=');readln(m);
write('vvedite n=');readln(n);
randomize;
for i:=1 to m do begin
for j:=1 to n do begin
A[i,j]:=random(99);
end; end;
//---Нахождение MIN---//
min:=A[1,1];
for i:=1 to m do begin
for j:=1 to n do
if A[i,j]<=min then min:=A[i,j];
end;
//---Вывод матрицы---//
writeln(' matrica A');
for i:=1 to m do begin
for j:=1 to n do
write(A[i,j]:4);
writeln;
end;
//---Вывод MIN---//
for i:=1 to m do begin
for j:=1 to n do
if A[i,j]=min then writeln('MIN -> A[',i,',',j,']=',min);
end;
//---------------//
writeln;
end.

[TinMan]

Сообщение от H4t

как сам мин. элемент найти понятно, но дальше не совсем

Вместо того, чтоб запомнать значение сасого минимума, запоминай его индексы

program n_4;
var
A:array[1..10,1..10] of integer;
i,j,n,m,imin,jmin:integer;
//---Матрица---//
begin
write('vvedite m=');readln(m);
write('vvedite n=');readln(n);
randomize;
for i:=1 to m do
  for j:=1 to n do A[i,j]:=random(99);
//---Нахождение MIN---//
imin:= 1;
jmin:= 1;
for i:=1 to m do
  for j:=1 to n do
    if A[i,j]<=A[imin,jmin] then begin
      imin:= i;
      jmin:= j
    end;
//---Вывод матрицы---//
writeln(' matrica A');
for i:=1 to m do begin
  for j:=1 to n do
    write(A[i,j]:4);
  writeln;
end;
//---Вывод столбца с MIN---//
writeln('column at minimum:');
for j:=1 to n do write(A[imin,j]);
writeln;
//---Вывод строки с MIN---//
writeln('row at minimum:')
for i:=1 to n do write(A[i,jmin]);
writeln;
//---------------//
end.

(исправлял прямо тут, не проверял)

[H4t]

Не работает, в конце выводит не строку и столбец, на пересечении которых элемент, а вообще просто 2 огромных числа (как вариант перемножение нужного столбца или строки, но вроде тоже нет).

[Mad_Cat]

for j:=1 to n do write(A[imin,j],'  ');

for i:=1 to n do write(A[i,jmin],'   ');

[H4t]

Сообщение от Mad_Cat

for j:=1 to n do write(A[imin,j],'  ');

for i:=1 to n do write(A[i,jmin],'   ');

Спасибо, что-то я не подумал, что пробелы просто не стоят :D