1. Задана матрица a (3,6). Найти минимальный элемент матрицы и вывести на экран сообщение превышает ли он заданную величину Z.

Const

N = 3;

M = 6;

Var

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

i, j, iMin, jMin, Z:integer;

Begin

Randomize;

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

iMin:=1;

jMin:=1;

For i: = 1 to N do

Begin

For j: = 1 to M do

Begin

A[i, j]:=random (21) - 10;

Write (A[i, j],' ') ;

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

Begin

iMin:=i;

jMin:=j

End

End;

WriteLn;

End;

WriteLn;

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

WriteLn;

Write ('Z = ') ; ReadLn (Z) ;

WriteLn;

if A[iMin, jMin] > Z then WriteLn ('Превышает.')

else WriteLn ('Не превышает.')

End.