Question

Cho A và dãy số a1,a2.... an. viết thuật toán:

a) Tính tổng các số chẵn có trong dãy.

b) Tính tổng các số lẻ trong dãy

Answer 1

for i:=1 to n do

if a[i] mod 2=0 then s:=s+a[i] else ss:=ss+a[i];

writeln(' a)', s);

write(' b),ss);