12/

uses crt;

var a,b: array[1..100] of integer;

i,j,n: integer;

kt: boolean;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

end;

j:=n;

for i:=1 to n do

begin

b[j]:=a[i]

j:=j-1;

end;

kt:=true;

for i:=1 to n do

if a[i]<>b[i] then kt:=false;

if kt=true then write ('day la mang doi xung') else write ('day la mang khong doi xung');

readln;

end.

13/

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

i,n: integer;

kt: boolean;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

end;

kt:=true;

for i:=1 to n do if a[i]>a[i+1] then kt:=false;

if kt=true then write ('mang tang dan') else write ('mang khong tang dan');

readln;

end.

14/

câu này đề nói chưa rõ nên mik chưa làm đc nhé