uses crt;
var n,i: integer;
    day,a,d: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do begin
        readln(day[i]);
        if day[i] mod 2=0 then d[i]:=i else a[i]:=i;
    end;
    if d[1]=0 then writeln('Day khong co phan tu duong') else writeln(d[1]);
    if a[1]=0 then writeln('Day khong co phan tu am') else writeln(a[1]);
    readln
end.

- Chương trình 5 :

uses crt;

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

    i, n, k : integer;

begin

clrscr;

write('Nhap so luong phan tu = '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(A[i]);

k := 0; for i := n downto 1 do

   if A[i] > 0 then k := i;

if k = 0 then write('Day khong co so duong')

else write('Chi so cua so duong dau tien = ', k);

readln

end.

- Chương trình 6 :

uses crt;

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

    i, n, k : integer;

begin

clrscr;

write('Nhap so luong phan tu = '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(A[i]);

k := 0; for i := n downto 1 do

   if A[i] < 0 then k := i;

if k <> 0 then write('Chi so cua so am dau tien = ', k)

else write('Day khong co so am');

readln

end.