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.
