Const n=5; // обязательно должно быть нечетным var i,j,max,x,k:integer; a:array[1..n,1..n]of integer; begin writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(20); write(a[i,j]:4); end; writeln; end; max:=a[1,1]; for i:=1 to n do begin if a[i,i]>max then max:=a[i,i]; if a[i,n+1-i]>max then max:=a[i,n+1-i]; end; k:=n div 2+1; x:=a[k,k]; for i:=1 to n do begin if a[i,i]=max then a[i,i]:=x; if a[n+1-i,i]=max then a[n+1-i,i]:=x; end; a[k,k]:=max; writeln('Измененный массив:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln end end.
Чтобы число было максимальным нужно, чтобы на первом месте стояли самые большие цифры. Это две двойки подряд. Таких чисел 2: 221121122121 221212211211 Видно, что второе число больше, т.к у первого на 4-м месте - 1, а у второго 2 Ответ 221212211211