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