- Đoạn chương trình trên là 1 đoạn bị lỗi khi mà ta không được thay đổi giá trị của biến đếm(i) trong vòng lặp for .. to .. do

- Đoạn được sửa để có kết quả:

    S:= 0; 
    For i:=1 to 5 do 
        If a[i] mod 2 <> 0 then 
            begin 
                S:= S + a[i];
            end;
    Writeln(S);

- Kết quả chạy: Có 5 lần lặp

Lần 1: i = 1, a[i] (6) mod 2 = 0 -> Điều kiện không thỏa

Lần 2: i = 2, a[i] (4) mod 2 = 0 -> Điều kiện không thỏa

Lần 3: i = 3, a[i] (5) mod 2 = 1 -> Điều kiện thỏa: S = S + 5 = 5

Lần 4: i = 4, a[i] (2) mod 2 = 0 -> Điều kiện không thỏa

Lần 5: i = 5, a[i] (7) mod 2 = 1 -> Điều kiện thỏa: S = S + 7 = 12

`->` S = 12

- Giá trị biến đếm trong câu lệnh For .. do là được điều chỉnh tự động, vì vậy câu lệnh viết sau do không được thay đổi giá trị biến đếm.

- Mảng a : a[1] = 6, a[2] = 4, a[3] = 5, a[4] = 2, a[5] = 7

`1.` For i := 1 to 5 do

⇒ Giá trị i chạy lần lượt từ 1 đến 5

`2.` If a[i] mod 2 <> 0 then S := S + a[i]

⇒ Nếu a[i] không chia hết cho 2 thì cộng a[i] vào biến S

`3.` Tương ứng với giá trị i từ 1 đến 5, các a[i] không chia hết cho 2 :

⇒ a[3] = 5 và a[5] = 7

`4.` Giá trị S = 0 + a[3] + a[5]= 0 + 5 + 7 = 12

$\text{⇒ Đáp án : D.12}$