10/

uses crt;
Var a: array[1..100] of integer;
i,j,k,n:integer;
begin
clrscr;
write ('nhap so luong phan tu: '); Readln(n);
for i:=1 To n Do
begin
write ('nhap a[',i,']: '); readln(a[i]);
end;
i:=2;
while i<=n do
begin
j:=1;
while a[j]<>a[i] do
j:=j+1;
if j < i Then
begin
for k:=i to n-1 do
a[k]:= a[k+1];
n:=n-1;
end
else
i:=i+1;
end;
writeln;
writeln ('mang sau khi loc: ');
for i:=1 to n do write (a[i]:4);
readln;
end.

11/

uses crt;
Var a: array[1..100] of integer;
i,j,k,n:integer;
begin
clrscr;
write ('nhap so luong phan tu: '); Readln(n);
for i:=1 To n Do
begin
write ('nhap a[',i,']: '); readln(a[i]);
end;

writeln ('nhap phan tu am can xoa: ');  readln (k);

writeln ('mang sau khi xoa: ');

for i:=1 to n do

if (d=0) then

if k<>a[i] then begin write (a[i]:4); d:=d+1; end

else write (a[i]:4);

readln;

end.

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.

`10)`

#include<stdio.h>
#include<conio.h>
int a[100];
void main()
{
 int i, j, n, k, dem = 0;
 printf("nhap n :");
 scanf("%d", &n);
 for (i = 0; i < n; i++)
 {
  printf("a[%d]=", i + 1);
  scanf("%d", &a[i]);
 }
 printf("mang da nhap:\n");
 for (i = 0; i < n; i++)  
 {
  printf(" %d ", a[i]);
 }
 for (i = 1; i < n; i++)
 {
  for (j = 0; j < i; j++)
  {
   if (a[i] == a[j])
   {
    for (k = i; k < n; k++) 
    {
     a[k] = a[k + 1];
     n--;
     i--;
    }
   }
  }
 }
 printf("\nmang sau khi xoa la:\n");
 for (i = 0; i < n; i++) 
 {
  printf(" %d ", a[i]);
 }
 getch();
}

`11)`

#include<stdio.h>
#include<conio.h>
int a[100], b[100];
void main()
{
 int i, n, k=0;
 printf("nhap so phan tu cua mang: ");
 scanf_s("%d", &n);
 for (i = 0; i < n; i++)
 {
  printf("a[%d]= ", i + 1);
  scanf_s("%d", &a[i]);
 }
 printf("mang da nhap la: \n");
 for (i = 0; i < n; i++) printf(" %d ", a[i]);
 for (i = 0; i < n;i++)
 if (a[i] <0 )
 {
  b[k] = a[i];
  k++;
 }
 for (i = 0; i < k; i++) a[i] = b[i];
 printf("\nmang sau khi xoa cac so am la : \n");
 for (i = 0; i < k; i++) printf(" %d ", a[i]);
 _getch();
}

`12)`

#include<stdio.h>
#include<conio.h>
#include <stdlib.h>
#define MAX 100
void nhapmang(int a[], int &n);
void xuatmang(int a[], int n);
int KiemTraMangDoiXung(int a[], int n);
void main()
 {
 int a[MAX],n;
 nhapmang(a,n);
 printf("\nNoi dung cua mang");
 xuatmang(a,n);
 if(KiemTraMangDoiXung(a,n) == 1)
  printf("\nMang doi xung ");
 else
  printf("\nMang khong doi xung ");
 printf("\nChuc cac ban hoc tot");
 getch();
}
void nhapmang(int a[], int &n)
{
 do
 {
  printf("\nSo phan tu trong mang ");
  scanf("%d",&n);
 }while(n<=0 && n>100);
 for(int i=0 ; i<n ; i++ )
 {
  printf("\nSo phan tu a[%d] la: ",i);
  scanf("%d",&a[i]);
 }
}
void xuatmang(int a[], int n)
{
 for(int i=0 ; i<n ; i++ )
  printf("%4d",a[i]);
}
int KiemTraMangDoiXung(int a[], int n)
{
 for(int i = 0; i < n/2; i++)
 {
  if(a[i] != a[n - i - 1])
  {
   return -1;
   break;
  }
 }
 return 1;
}

$C$