a)

program h247;

uses crt;

var a:array[1..1000]of integer;

      i, n, tl: integer;

begin

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 tl:=tl+a[i];

end;

write('Tong so le trong mang la ',tl);

readln;

end.

b)

program h247;

uses crt;

var a:array[1..1000]of integer;

      i, n, tong: integer;

begin

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) and (a[i] mod 5=0) then tong:=tong+a[i];

end;

write('Tong cac so chia het cho 2 va 5 la ',tong);

readln;

end.

a) Input: số nguyên N và dãy a1,...,an 
output: số lượng số chẵn trong dãy. 
Ý tưởng: 
khởi gán dem=0 
lần lượt chia các ai (i:1->N) cho 2 
nếu ai chia hết cho 2 thì dem=dem+1 
diễn tả thuật toán 
liệt kê: 
b1: nhập số nguyên dương N và dãy a1, a2,..,an 
b2: i<-1 dem<-0 
b3: i>N thì đưa ra biến dem rồi kthúc 
b4: ai chia hết cho 2 thì dem<-dem+1 
b5: i<-i+1, quay lại bc 3

b)Input: dãy A gồm N số nguyên tử a1, a2, a3... Ăn

Output:tính tổng các số chia hết cho 2