Cho khai báo mảng

Câu 8-TH Cho khai báo mảng:
Var a: array[0..50] of real;
và đoạn chương trình như sau:
m:= a[0];
cs := 0;
for i:= 1 to 50 do
if a[i] > m then
begin
m:= a[i] ;
cs :=i;
end;
write(cs);
Đoạn chương trình trên thực hiện công việc?
A. Tìm chỉ số của phần tử nhỏ nhất trong mảng
B. Tìm chỉ số của phần tử lớn nhất trong mảng
C. Tìm phần tử lớn nhất và chỉ số của nó trong mảng
D. Tìm phần tử nhỏ nhất và chỉ số của nó trong mảng