Дана матрица целых чисел размером 5 х 3. Определить максимальный и мини-мальный…

type mas=array[1… 5,1… 3] of integer; var a: mas; i,j,min,max: integer; beginrandomize; for i: =1 to 5 dofor j: =1 to 3 doa[i,j]: =random (100)+1; writeln ('Исходная матрица'); for i: =1 to 5 dobeginfor j: =1 to 3 dowrite (a[i,j]: 4); writeln; end; min: =a[1,1]; max: =a[1,1]; for i: =1 to 5 dofor j: =1 to 3 dobeginif a[i,j]max then max: =a[i,j]; end; writeln ('Минимальный элемент матрицы: ',min); writeln ('Максимальный элемент матрицы: ',max); end.