a) 

Var a:array[1..100] of integer /Khai báo mảng đó anh(chị)/

/Nhập các phần tử/

Var i, N:integer;

Begin

Write('Nhap so phan tu N: '); readln(N);

i:=1;

While i <= n do begin

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

i:=i +1;

end;

End.

b) /Em lấy như trên nên chỉ thêm vô mấy cái mới thôi nhé/

Var S, C : integer;

Begin

i: =1;

S:=0;

C:=0;

while i <= N do 

begin

if a[i] mod 4 = 3  then begin S:= S+ a[i];  C:= C+1; end;

i:=i+1;

end;

Writeln('Trung binh cong la: ', S/C);

Readln;

End.

c)/eM BỎ MẤYCASI GIỐNG NHƯ TRÊN/

Begin

i:= 1;

While i <= N do

begin

if i = k then writeln(a[i]);

end;

readln;

End.

d)

Begin

i:=20

While i <= 100 do begin writeln(a[i]); i:=i+1; end;

readln;

End.

e)

Var ch, lh : integer

Begin

i:=1;

lh:=0; ch:=0;

while i<=N do begin

if a[i] > 0 then lh := lh +1;

if a[i] mod 2 = 0 them ch := ch +1;

end;

Writeln('So phan tu lon hon 0 la: ', lh,' So phan tu chia het cho 2 la: ', ch);

readln;

End.

f)

var  tong, tich : integer;

begin

i: = 1;

tong:=0; tich:=1;

while i <= N do begin

if a[i] mod 9 =0 then begin tong: = tong + a[i]; tich:=tich*a[i];  end;

i:=i+1;

end;

Writeln('Tong cac phan tu chia het cho 9 la: ', tong);

Writeln(Tich cac phan tu chia het cho 9 la: ', tich);

readln;

end.