Bài 1:

program dpt;

uses crt;

var n,i,j,dem: integer;

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

begin

clrscr;

write('Nhap n: ');

readln(n);

dem:=0;

j:=0;

for i:=1 to n do

begin

    write('Nhap phan tu thu ',i,' : ');

    readln(a[i]);

end;

write('Cac phan tu co gia tri nho hon 100 o vi tri: ');

for i:=1 to n do

begin

    if a[i]<100 then

    begin

        dem:=dem+1;

        write(i,' ');

    end;

end;

writeln;

writeln('Co ',dem,' phan tu nho hon 100');

readln;

end.

Bài 2:

program tt;

uses crt;

var n,x,i,s: integer;

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

begin

clrscr;

write('Nhap n: ');

readln(n);

write('Nhap x: ');

readln(x);

for i:=1 to n do

begin

    write('Nhap phan tu thu ',i,' : ');

    readln(a[i]);
end;

write('Cac phan tu chia het cho ',x': ');

for i:=1 to n do

begin

    if a[i] mod x = 0 then 

    begin

        write(a[i],' ');

        s:=s+a[i];

    end;

end;

writeln;

writeln('Tong = ',s);

readln;

end.

uses crt;
var n,i,dem:longint; a:array[1..1000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
          write('a[',i,']=');readln(a[i]);
      end;
   write('Cac phan to nho hon 100 o vi tri:');
   for i:=1 to n do if a[i]<100 then begin write(i,' '); inc(dem); end;
   writeln; writeln('Co ',dem,' phan tu nho hon 100');

readln
end.