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

Question

Pascal. Найти номер строки,в которой находится минимальный элемент двумерного массива (считать,что в массиве один минимальный элемент).

Comments

Номер строки первого попавшегося из минимальных или все номера строк с равными минимальными значениями (например 3 раза повторяется число 0, которое является минимальным в двумерной матрице)?

Answer 1

Const
   N = 3;
   M = 4;
Var
   A:array[1..N,1..M] of integer;
   i,j,Min,Ns:integer;
Begin
{Заполнение массива}
WriteLn('Исходный массив: ');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ');
        End;
    WriteLn
    End;
{Поиск минимального элемента}
Min:=A[1,1];
For i:= 1 to N do
    For j:= 1 to M do
        if A[i,j]           Begin
           Min:=A[i,j];
           Ns:=i;
           End;
WriteLn('Минимальный элемент в строке №',Ns);
End.