Заполнить двумерный массив NxN случайными числами из интервала [-10; 10], найти…

Program gulkakh; const n=5; var a: array[1… n,1… n] of integer; i,j,k,max,stroka: integer; beginwriteln ('Исходная матрица: '); for i: =1 to n do for j: =1 to n do begin a[i,j]: =random (20) -10; write (a[i,j],'); if j=n then writeln; end; stroka: =1; max: =a[1,1]; for i: =1 to n dofor j: =1 to n do beginif max