PASCAL 1.Hãy lập trình nhập vào từ bàn phím N số nguyên không âm, tính và thông báo ra màn hình tổng các phần tử là số chẵn ở vị trí lẻ trong dãy số đó 2.Cho dãy n số nguyên A1, A2, … An. Lập trình nhập vào dãy số và đếm số lượng các phần tử số chẵn có trong dãy số và thông báo ra màn hình

`1)`

uses crt;

var i， n， a: longint;

sum: longint;

begin

readln(n);

sum:=0;

for i:=1 to n do

begin

readln(a);

if (a mod 2 = 0) and (i mod 2 = 1) then sum:=sum+a;

end;

writeln(‘Tong cac phan tu la so chan o vi tri le la: ‘，sum);

readln;

end.

`2)`

uses crt;

var  i， n， a: longint;

dem: longint;

begin

readln(n);

dem:=0;

for i:=1 to n do

begin

readln(a);

if (a mod 2 = 0) then inc(dem);

end;

writeln(‘So luong cac phan tu la so chan la: ‘，dem);

readln;

end.

Câu 1:

var i, n, a: longint;

      sum: longint;

BEGIN

   readln(n);

   sum:=0;

   for i:=1 to n do

        begin

           readln(a);

           if (a mod 2 = 0) and (i mod 2 = 1) then sum:=sum+a;

        end;

   writeln('Tong cac phan tu la so chan o vi tri le la: ',sum);

   readln;

END.

Câu 2:

var  i, n, a: longint;

       dem: longint;

BEGIN

   readln(n);

   dem:=0;

   for i:=1 to n do

        begin

            readln(a);

            if (a mod 2 = 0) then inc(dem);

        end;

   writeln('So luong cac phan tu la so chan la: ',dem);

   readln;

END.