Question

cho dãy A gồm N số nguyên a1, a2...aN . trong dãy A có bao nhiêu phần tử là số lẻ , tính tống các phần tử chẵn đó.

Mọi người giúp mình vs .mình đang cần gấp ....

Answer 1

minh ghi bị nhầm cho dãy A gồm N số nguyên a1, a2...aN . trong dãy A có bao nhiêu phần tử là số lẻ , tính tống các phần tử lẽ đó.

Answer 2

var s,a1,an,n,c:integer;

begin

s:=0;

c:=0

write('nhap a1,an ');

read(n);

for i:=a1 to an do

if i mod 2=0 then

begin

s:=s+i;

c:=c+1;

end;

write ('so so thoa ycdb la : ',c);

write ('tong so thoa ycdb la : ',s);

readln

end.