Nhập vào từ bàn phím một dãy sô nguyên từ A1 đến An. Đếm xem trong dãy có bao nhiêu số chẵn? Bao nhiêu số lẻ? Tính tổng các số có chỉ số chẵn? Tính tổng các số có chỉ số lẻ?

program tinhtchboi3;

uses crt;

var i,n,chan,le : integer;

s,r:real;

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

begin

clrscr;

s:=0;r:=0;

chan:=0; le:=0;

writeln('nhap so phan tu cua day so A',n); readln(n);

for i:= 1 to n do

begin

write('A[',i,']=');readln(A[i]);

end;

if a[i] mod 2 then

begin

s:=S+a[i];

chan:=chan+1;

Writeln('tong cac so chan la',S); readln(s);

writeln('so so chan la',chan); readln(chan);

readln;

end

else then

r:=r+a[i];

le:=le+1;

Write('tong cac so le la',r);

readln(r);

writeln(' so cac so le la',le);

readln(le);

readln

end.

Code đây nhé:

uses crt;

var i,n,Dl,Tl,Dc,Tc: integer;

A: array [1..50] of integer;

Begin

clrscr;

write('Nhap do dai day so: '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

Dl:=0; Dc:=0; Tl:=0; Tc:=0;

for i:=1 to n do

if a[i] mod 2=0 then

begin inc(dc);

tc:=tc+a[i];

end

else begin inc(dl);

tl:=tl+a[i];

end;

writeln('Co ',dc,' so chan trong day va tong bang: ',tc);

writeln('Co ',dl,' so le trong day va tong bang: ',tl);

readln

end.