{VCT NHẬP MẢNG.[r]
(1){VCT NHẬP MẢNG KTRA MẢNG VỪA NHẬP CÓ ĐỐI XỨNG KHÔNG?} var a:array [1 100] of integer; n,i,s,j,d:integer; begin write('nhap mang n=');readln(n); for i:=1 to n begin write('a[',i,']=');readln(a[i]); end; i:=1; for j:=n downto if a[i]=a[j] then begin i:=i+1; d:=d+1; end; if d=n then writeln('mang doi xung') else writeln('mang k doi xung'); readln end (2)