Cho khai báo mảng

Câu 6.- TH Cho khai báo mảng:
Var a: array[0..30] of real ;
và đoạn chương trình như sau:
k:= 0 ;
for i:= 1 to 30 do
if a[i] > mod 2 = 0 then k:= k+1 ;
Đoạn chương trình trên thực hiện công việc?
 A. Tìm phần tử chẵn trong mảng
 B. Tìm phần tử lớn nhất trong mảng
 C. Tìm chỉ số của phần tử chẵn trong mảng
 D. Đếm xem có bao nhiêu phần tử chẵn trong mảng