var

a:array[1..100] of integer;

i,n,max,csmax:integer;

write('nhap so phan tu n=');readln(n);

for i:=1 to n do

write('a[,i,]');readln(a[i]);

end;

max:=1;csmac:=1;

for i:=2 to n do

if a[i]>max then

max:=a[i];

csmax:=i;

write('gia tri lon nhat max: ',max);

readln;

write('chi so la csmax: ',csmax);

readln;

end.