uses crt;

var n: array[1..200] of integer;

d: array[1..100] of integer;

c: array[1..100]of integer;

a,i,k,j,s,dem: integer;

begin

clrscr;

repeat

clrscr;

write ('nhap so phan tu: ');  readln (a);

if a>200 then writeln ('Dieu kien a<=200');

until a<=200;

for i:=1 to a do

begin

write ('nhap n[',i,']: ');   readln (n[i]);

end;

write ('cac phan tu chia het cho 3: ');

for i:=1 to a do

if n[i] mod 3=0 then write (n[i],'   ');

write ('nhap k: ');   readln (k);

for i:=1 to a do

for j:=i to a do

begin

s:=s+n[i];

if s=k then

begin

dem:=dem+1;

d[dem]:=i;

c[dem]:=j;

end;

end;

if (d[1]<>0) and (c[1]<>0) then writeln ('khong co day con nao co gia tri bang ',k)

else

begin

  write ('cac day con co gia tri bang ',k,' la: ');

  for j:=1 to dem do

  for i:=d[i] to c[i] do write (n[i],'   ');

end;

readln;

end.

b1: nhập mảng

b2: tìm và in ra cac phần tử chia hết cho 3

b3: tìm các đoạn con