Дан целочисленный массив размером NxM. Вывести на экран индексы последних…

program noname; uses crt; vara: array[1… 1000,1… 1000] of integer; i,j,min,n,m,l: integer; beginclrscr; write ('n='); readln (n); write ('m='); readln (m); for i: =1 to n dofor j: =1 to m do beginwrite ('a[',i,',',j,']='); readln (a[i,j]); end; for i: =1 to n do begin writeln; for j: =1 to m dowrite (a[i,j],'); end; writeln; for i: =1 to n do beginmin: =0; for j: =1 to m doif min>a[i,j] then begin min: =a[i,j]; l: =j; end; if min<>0 thenwriteln ('v ',i,' stroke indexy poslednego otricatelnogo chisla=',i,',',l) else writeln ('v ',i,' stroke otricatelnyh chisel net'); end; readkey; end.