Code bài CHEO2, mảng chiều

const

   fin='CHEO2.inp';fon='CHEO2.out';

   maxn = 1000;maxm = 1000;

   vc=10000;

var

   a,b:array[1..maxm,1..maxn] of longint;

   m, n, k:longint;

procedure nhap;

var i,j:longint;

begin

read(n);

for i:=1 to N do

   for j:=1 to n do read(a[i,j]);

end;

procedure xl;

var

   i,imax:longint;

begin

imax:=1;

for i:=2 to n do

   if a[i,i]>a[imax,imax] then imax:=i;

write('a',imax,imax);

end;

begin

assign(input,fin);reset(input);

assign(output,fon);rewrite(output);

nhap;

xl;

close(input);close(output);

end.