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
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.