Даны натуральные числа n,m и двумерный массив разиером…

varn,m,i,j,min,imin,s: integer; a: array[1… 100,1… 100]of integer; begin\\ввод, mreadln (n); readln (m); \\ввод массива; for i: =1 to n dofor j: =1 to m doreadln a[i,j]\\поиск строки с минимальным числомimin: =1; min: =a[1,1]; for i: =1 to n do for j: =1 to m do if a[i,j]