3. Найти наименьший элемент двумерного массива. Элементы задаются на интервале [-30, 45].

Желательно побыстрее

Const

N = 3;

M = 4;

Var

A:array[1 ... N, 1 ... M] of integer;

i, j, iMin, jMin:integer;

Begin

Randomize;

iMin:=1;

jMin:=1;

WriteLn ('Исходный массив:') ;

For i: = 1 to N do

Begin

For j: = 1 to M do

Begin

A[i, j]:=random (76) - 30;

if A[i, j] < A[iMin, jMin] then

Begin

iMin:=i;

jMin:=j

End;

Write (A[i, j]:3,' ')

End;

WriteLn;

End;

WriteLn ('Min = A[', iMin,',', jMin,'] = ', A[iMin, jMin]) ;

End.

Исходный массив:

-11 - 3 - 16 44

-1 - 10 38 - 20

33 - 22 17 10

Min = A[3,2] = - 22