В матрице целых чисел произвольного размера определить минимальное число и его индексы

Const

m1 = 30;

n1 = 30;

var

a: array[1 ... m1, 1 ... n1] of integer;

m, n, i, j, t, imin, jmin, mn: integer;

begin

Write ('Введите через пробел число строк и столбцов массива: ') ;

Readln (m, n) ;

Randomize;

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

mn : = 32767;

for i : = 1 to m do

begin

for j : = 1 to n do

begin

t : = Random (101) - 50;

Write (t:5) ;

if mn > t then begin mn : = t; imin : = i; jmin : = j end;

a[i, j] : = t

end;

Writeln

end;

Writeln ('Минимальный элемент a[', imin, ',', jmin, ']=', mn)

end.

Тестовое решение:

Введите через пробел число строк и столбцов массива: 6 8

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

-35 33 44 32 37 31 - 21 24

42 - 27 45 - 30 - 10 25 - 6 - 1

1 - 40 - 12 47 24 - 31 - 29 5

35 - 15 23 40 - 41 19 - 37 - 35

4 24 - 47 - 47 50 27 21 - 23

-44 35 - 36 - 46 30 - 21 - 50 - 48

Минимальный элемент a[6,7]=-50