program Timsolonnhat; const PT=2; type mang=array[1..PT]of integer; var Max,i,n: integer; VtMax: integer; A: mang; begin writeln(`Nhap mang`); writeln(`.....`); repeat write(`Cho biet so phan tu:`); readln(n); until n for i:=1 to PT do begin write(`Phan tu thu ` ,i,` = `); readln(a[i]); end; writeln; writeln(`Xu ly`); writeln(`.....`); writeln; Max:=a[1]; VtMax:=1; for i:=1 to PT do begin if(a[i]>Max) then begin Max:=a[i]; VtMax:=i; end; end; writeln; writeln(`In ra man hinh`); writeln(`.....`); writeln(`Phan tu lon nhat:`,Max,` , o vi tri thu:`,VtMax); readln end....