Trong passcal có đoạn chương trình sau: Var a: array[1..10 ] of real; i: integer; s: real; begin s: = 0 ; for i:=1 to 10 do if ( a[i] mod 2) <>0 do s:= s+1; write(s); end; Đoạn chương trình trên dùng để tính: A. Tính tổng các phẩn tử lẽ trong dãy A B. Tính tổng các phẩn tử chẵn trong dãy A C. Tính số lượng các phẩn chẵn trong dãy A D. Tính số lượng các phẩn tử lẽ trong dãy A