Bài 5:

Đoạn 1:

For i:= 1 to n do     

Begin          

Write(‘a[ ‘,i,’]=’);

readln(a[i]);     

End;

`->` Đây là đoạn chương trình nhập giá trị cho n phần tử mảng

Đoạn 2:

For i:=1 to N do

If(A[i] mod 2 <> 0) then

begin                  

dem:=dem+1;             

End;

`->` Đây là đoạn chương trình đếm xem trong n phần tử mảng có bao nhiêu phần tử là số lẻ

Bài 6:

uses crt;

var a: array[1..1000] of integer;

i,n,dem: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

For i:= 1 to n do     

Begin          

Write(‘a[ ‘,i,’]=’);

readln(a[i]);     

End;

dem:=0;

For i:=1 to N do

If(A[i] mod 2 <> 0) then

begin                  

dem:=dem+1;             

End;

writeln (dem);

readln;

end.

- Đoạn 1 :

1. For i := 1 to n do

⇒ Lặp 1 hay nhiều câu lệnh sau do với số lần biết trước, lặp n lần

2. Write('a[ ‘, i ,’] = ’); Readln(a[i]);

⇒ Câu lệnh được thực hiện lặp n lần

⇒ Với mỗi vòng lặp in a[i] = với i tương ứng

⇒ Thực hiện nhập từ bàn phím giá trị cho a[i] với i tương ứng

- Đoạn 2 :

1. For i := 1 to n do

⇒ Lặp 1 hay nhiều câu lệnh sau do với số lần biết trước, lặp n lần

2. If (A[i] mod 2 <> 0) then begin dem := dem + 1;  End;

⇒ Kiểm tra điều kiện A[i] mod 2 <> 0, nếu điều kiện đúng thực hiện lệnh sau then

⇒ Điều kiện sai bỏ qua câu lệnh sau then

⇒ Câu lệnh được thực hiện là tăng giá trị biến dem lên 1 đơn vị khi điều kiện đúng