B1:

a.

uses crt;
var n,i: byte;
    a: array[1..100] of integer;
begin
clrscr;
    write('Nhap so phan tu: ');
    readln(n);
    write('Day A gom ',n,' phan tu: ');
    for i:=1 to n do read(a[i]);
    writeln('Cac so am la:');
    for i:=1 to n do if a[i]<0 then writeln(a[i],' vi tri la: ',i);
    readln
end.

b.

uses crt;
var n,i,d: byte;
    s: integer;
    a: array[1..100] of integer;
begin
clrscr;
    write('Nhap so phan tu: ');
    readln(n);
    write('Day A gom ',n,' phan tu: ');
    for i:=1 to n do begin
        read(a[i]);
        if a[i] mod 2 = 1 then begin
            d:=d+1;
            s:=s+a[i];
        end;
    end;
    writeln('Co ',d,' so le');
    write('Tong la: ',s);
    readln
end.

c.

uses crt;
var n,i,d: byte;
    s: integer;
    boi,p: string;
    a: array[1..100] of integer;
begin
clrscr;
    write('Nhap so phan tu: ');
    readln(n);
    write('Day A gom ',n,' phan tu: ');
    for i:=1 to n do begin
        read(a[i]);
        if a[i] mod 3 = 0 then begin
            str(a[i],p);
            boi:=boi+' '+p;
            s:=s+a[i];
            d:=d+1;
        end;
    end;
    writeln('Cac boi so cua 3 la: ',boi);
    write('TB Cong la: ',s/d:0:2);
    readln
end.

d.

uses crt;
var n,i,k: byte;
    s,p: string;
    kt: boolean;
    a: array[1..100] of integer;
begin
clrscr;
    write('Nhap so phan tu: ');
    readln(n);
    write('Day A gom ',n,' phan tu: ');
    for i:=1 to n do read(a[i]);
    write('Nhap so khong tim: ');
    readln(k);
    kt:=false;
    for i:=1 to n do if k=a[i] then begin
        kt:=true;
        str(i,p);
        s:=s+' '+p;
    end;
    if kt=false then write('Khong co phan tu ',k,' nao trong day') else
    write('Phan tu ',k,' co trong day, o cac vi tri: ',s);
    readln
end.

e.

uses crt;
var n,i: byte;
    s: longint;
    a: array[1..100] of integer;
begin
clrscr;
    write('Nhap so phan tu: ');
    readln(n);
    write('Day A gom ',n,' phan tu: ');
    s:=1;
    for i:=1 to n do begin
        read(a[i]);
        if a[i] mod 2 = 0 then s:=s*a[i];
    end;
    if s=1 then write('Tich cac so chan la: 0') else write('Tich cac so chan la: ',s);
    readln
end.

`a)`

uses crt;
 var a : array[1..100] of longint ;
 n, i : longint ;
    begin
     clrscr;
read(n);
  for i := 1 to n do
     begin
    read(a[i]);
     end ;
 for i := 1 to n do
    if a[i] < 0 then writeln(a[i],' ',i);
    end .

`b)`

uses crt;
 var a : array[1..100] of longint ;
 n, i, s, d : longint ;
    begin
     clrscr;
read(n);
  for i := 1 to n do
     begin
    read(a[i]);
    if a[i] mod 2= 0 then
         begin
        inc(d);
        inc(s,a[i]);
         end ; 
     end ;
    writeln('So le: ',d);
    writeln('S=',s);
    end .

`c)`

uses crt;
 var a : array[1..100] of longint ;
 n, i, s, d : longint ;
    begin
     clrscr;
read(n);
  for i := 1 to n do
     begin
    read(a[i]);
    if a[i] mod 3= 0 then
         begin
        inc(d);
        inc(s,a[i]);
         end ; 
     end ;
    writeln(s/d :3:1);
    end .

`d)`

uses crt;
 var a : array[1..100] of longint ;
 n, i, k, d : longint ;
    begin
     clrscr;
    write('n='); readln(n);
 write('Nhap day so: ');
  for i := 1 to n do 
    read(a[i]);
     write('k=');
     readln(k); 
 d := 0 ;
   for i := 1 to n do
  if a[i] = k then
         begin
        inc(d);
        break ;
         end ;
 if d = 0 then writeln('Khong ton tai')
   else 
     begin
    writeln('Tri tri cua ',k,': ');
    for i := 1 to n do
        if a[i]= k then write(i,' ');
     end ;
    end .

`e)`

uses crt;
 var a : array[1..100] of longint ;
 n, i, s : longint ;
    begin
clrscr;
 read(n);
  for i := 1 to n do read(a[i]);
 s := 1 ;
  for i := 1 to n do
    if a[i] mod 2 = 0 then s := s * a[i];
 write(s);
    end .