a) Nhập vào mảng A có n phần tử. In mảng A đã nhập ra màn hình. Sau đó in ra màn hình các số dương (các số âm) trong mảng.

uses crt;  
 var a : array[1..100] of longint ;
  n,i : longint ;
   begin
    clrscr;
write('N=');
 readln(n);
for i := 1 to n do
     begin
    write('a[',i,']=');
    readln(a[i]);
     end;
write('Day vua nhap: ');
 for i := 1 to n do write(a[i],' ');
   writeln;
  write('Cac phan tu duong: ');
 for i := 1 to n do 
    if a[i] > 0 then write(a[i],' ');
   writeln;
    write('Cac phan tu am: ');
 for i := 1 to n do 
    if a[i] < 0 then write(a[i],' ');
   writeln; 
  readln 
     end .

b) Nhập vào mảng B có n phần tử. In mảng B đã nhập ra màn hình. Sau đó in ra các số chẵn (các số lẽ) có trong mảng.

uses crt;
 var b : array[1..100] of longint ;
  n,i : longint ;
   begin
    clrscr;
write('N=');
 readln(n);
for i := 1 to n do
     begin
    write('b[',i,']=');
    readln(b[i]);
     end;
write('Day vua nhap: ');
 for i := 1 to n do write(b[i],' ');
   writeln;
  write('Cac phan tu chan: ');
 for i := 1 to n do 
    if b[i] mod 2=0 then write(b[i],' ');
   writeln;
    write('Cac phan tu le: ');
 for i := 1 to n do 
    if b[i] mod 2=1 then write(b[i],' ');
   writeln; 
  readln 
     end .

c) Nhập vào mảng C có n phần tử. In mảng C đã nhập ra màn hình. Tính tổng và giá trị trung bình của các số dương (các số âm) trong mảng.

uses crt;
 var c : array[1..100] of longint ;
  n,i,sd,sa,dd,da : longint ;
   begin
    clrscr;
write('N=');
 readln(n);
for i := 1 to n do
     begin
    write('c[',i,']=');
    readln(c[i]);
    if c[i] > 0 then 
         begin 
        sd := sd + c[i];
        dd := dd + 1 ;
         end;
    if c[i] < 0 then 
         begin
        sa := sa + c[i];
        da := da + 1;
         end ;
     end;
writeln('Tong cac so duong: ',sd,', trung binh cac so duong: ',sd/da:3:2);
writeln('Tong cac so am: ',sa,', trung binh cac so am; ',sa/da:3:2);
  readln 
     end .

d) Nhập vào mảng D có n phần tử. In mảng D đã nhập ra màn hình. Tìm số lớn nhất (số nhỏ nhất) của mảng.

uses crt;
 var d : array[1..100] of longint ;
  n,i,max,min : longint ;
   begin
    clrscr;
write('N=');
 readln(n);
for i := 1 to n do
     begin
    write('d[',i,']=');
    readln(d[i]);
     end;
max := d[1];
min := d[1];
 for i := 2 to n do
     begin
    if max < d[i] then max := d[i];
    if min > d[i] then min := d[i];
     end;
 writeln('Gia tri lon nhat: ',max,',gia tri nho nhat: ',min);
  readln 
     end .