bài 1
program bai1;
uses crt;
var A:array[1..500] of integer;
n,i:integer;
t:longint;
begin
clrscr;
write('Nhap so luong phan tu: ');
readln(n);
writeln('Nhap gia tri cua tung phan tu');
for i:=1 to n do
begin
write('Nhap A[',i,']: ');
readln(A[i]);
end;
t:=0;
for i:=1 to n do
if A[i] mod 5=0 then t:=t+A[i];
writeln('Tong cua cac so chia het cho 5 trong day la: ',t);
if t mod 2=0 then write('Tong chung la so chan')
else write('Tong chung la so le');
readln
end.
bài 2
program bai2;
uses crt;
var st:string;
i,d:byte;
begin
clrscr;
write('Nhap xau: ');
readln(n);
d:=0;
for i:=1 to length(st) do
if st[i] in ['A'..'Z'] then inc(d);
write('Trong xau co ',d,' chu cai hoa');
readln
end.
