Câu 1 :
uses crt;
var a : array[1..100] of integer;
n,i ,c,l : integer;
begin c:=0; l:=0;
write('Nhap n:'); readln(n);
for i:=1 to n do begin
write('Nhap phan tu ',i,':'); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2=0 then c:=c+a[i] else l:=l+a[i];
write('Tong chan :', c);
write('Tong le :', l);
readln
end.
Câu 2 :
uses crt;
var s : string;
i : integer;
d1,d2 : integer;
begin
d1:=0; d2:=0;
write('Nhap xau :'); readln(s);
for i:=1 to length(s) do if s[i]='a' then d1:=d1+1 else if s[i]='A' then d2:=d2+1;
writeln('So luong ki tu a la :', d1);
writeln ('So luong ki tu A la :', d2);
readln
end.