Дан двумерный массив a, раз­мером (n´n)(или
квадратная мат­рица а). Найти сумму номеров минимального и максимального  элементов её глав­ной диаго­нали.

program cgt;var a:array[1..100,1..100]of integer;max,min,s,i,j,n,x1,y1,x2,y2:integer;beginread(N);for i:=1 to n dofor j:=1 to n doread(a[i,j]);max:=a[1,1];min:=a[1,1];for i:=1 to n dobeginfor j:=1 to n dobeginif(i=j)and(a[i,j]>=max)then beginmax:=a[i,j];x1:=i;y1:=j;end;if(i=j)and(a[i,j]<=min)then beginmin:=a[i,j];x2:=i;y2:=j;end;end;end;s:=x1+x2+y1+y2;writeln(s);end.