program c1;

uses crt;

var N, i, tong, dem: longint;

        a: array[1..1005] of longint;

begin

clrscr;

write('Nhap N = '); readln(N);

write('Nhap cac phan tu: ');

for i := 1 to N do read(a[i]);

.............................

....(đoạn ct đó)

...

writeln('Tong cac phan tu le la ', tong);

writeln('So phan tu le la ', dem);

readln;

end.

C2: 

ý nghĩa của c1 là tính tổng và đếm số lượng các phần tử lẻ trong mảng.

Câu 1:

uses crt;

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

i,n,tong,dem: integer;

begin

clrscr;

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

For i :=1 to N do readln (a[i]);

For i :=1 to N do

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

Begin

Tong := tong +a[i];

Dem := dem +1;

End;

writeln ('Tong=',tong);

writeln ('Co ',dem,' so le');

readln;

end.

Câu 2:

Chương trình ở câu 1 thực hiện việc:

For i :=1 to N do      `->` mảng(dãy số gồm N phần tử) nhận biết từ chỗ "a[i]" và câu lệnh for..do

If (a[i] mod 2<>0 ) then      `->` Kiểm tra xem có phải là số lẻ hay không

Begin 

Tong := tong +a[i];   `->` tính tổng

Dem := dem +1; `->` đếm

End;

`->` Thực hiện tính tổng và đếm các phần tử là số lẻ của mảng A