b1:
uses crt;
var a:array[1..100] of integer;
i, n, d: byte;
begin
clrscr;
d:=0;
write('nhap n = '); readln(n);
for i:=1 to n do
begin
write('nhap a[', i, '] = ');
readln(a[i]);
if a[i] mod 2 <> 0 then inc(d);
end;
write('so luong so le la: ',d);
readln
end.
b2
uses crt;
var s: string;
i, d: byte;
begin
clrscr;
d:=0;
write('nhap xau: '); readln(s);
for i:=1 to length(s) do
if s[i]=' ' then inc(d);
write('so luong ki tu trang la: ',d);
readln
end.
Xin CTLHN!