Как запомнить строку....

[Avvakymova]

подскажите,пожалуйста,как запомнить строку в массиве,где расположен минимальный элемент???

[Mad_Cat]

if  a[i,j]<min then begin minS:=i;min:=a[i,j];end;

[Avvakymova]

Вот у меня в программе нужно найти минимальный элемент и указать в какой строке он находиться,у меня не как не получается!!!я нашла min,а номер строки выводиться всегда последний!

[Alex11223]

Код покажите, здесь же нет телепатов, которые могут по IP извлечь код из вашего мозга)

[Avvakymova]

program p1;
uses crt;
 const
  n=5;
  m=7;
 type
   matrica=array [1..n,1..m] of integer;
 var
   a:matrica;
   st,i,mins,j,min:integer;
begin
clrscr;
   randomize;
     for I:= 1 to  n do
      begin
        for j:= 1 to m do
        a[i,j]:=random(100);
     end;
  for I:= 1 to  n do
   begin
      for j:= 1 to m do
      write(a[i,j]:5);
      writeln(' ');
  end;
  min:=a[1,1];
  for i:= 1 to n do
  begin
     for i:= 1 to n do
        if a[i,j]<min  then
        begin
        mins:=i;
        min:=a[i,j];
        end;
   end;
   writeln(' min element=',min);
   writeln('stroka=',i);
 readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Mad_Cat]

min:=a[1,1];mins:=1;
for i:= 1 to n do
begin
for i:= 1 to n do
if a[i,j]<min then
begin
mins:=i;
min:=a[i,j];
end;
end;
writeln(' min element=',min);
writeln('stroka=',mins);
readln;
end.

[Avvakymova]

Спасибо,почти все правильно,вот только это присвоение (min:=a[1,1];mins:=1 нужно делать в цикле))

[Mad_Cat]

нет не надо

[Avvakymova]

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

нет не надо

если этого не сделать,то он постоянно будет выводить первый элемент и номер строки тоже 1

[Mad_Cat]

если этого не сделать,то он постоянно будет выводить первый элемент и номер строки тоже 1

кто сказал7 код и логи можно увидеть?