Viết chương trình nhập vào một dãy n số tự nhiên. Đếm số chẵn và số lẻ sau đó tính tổng các số chẵn, các số lẻ trong dãy.
Help me zới ạ:((
Viết chương trình nhập vào một dãy n số tự nhiên. Đếm số chẵn và số lẻ sau đó tính tổng các số chẵn, các số lẻ trong dãy.
Help me zới ạ:((
program ct;
uses crt;
var A:array[1..100] of integer;
i,n,dem1,dem2:integer;
S1,S2:longint;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
for i:=1 to n do
begin
writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
dem1:=0; dem2:=0; S1:=0; S2:=0;
for i:=1 to n do
begin
if A[i] mod 2=0 then
begin
dem1:=dem1+1;
S1:=S1+A[I];
end;
if A[i] mod 2<>0 then
begin
dem2:=dem2+1;
S2:=S2+A[I];
end;
end;
writeln(‘Co ‘,dem1,’ so chan. Tong cac so chan la: ‘,S1);
writeln(‘Co ‘,dem2,’ so le. Tong cac so le la: ‘,S2);
readln;
end.
Học tốt!
uses crt;
var A:array[1..1000] of integer;
n,i,dch,dle,sch,sle:integer;
begin
clrscr;
dch:=0; dle:=0; sch:=0; sle:=0;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(A[i]);
if A[i] mod 2 = 0 then begin dch:=dch+1; sch:=sch+A[i]; end
else begin dle:=dle+1; sle:=sle+A[i]; end;
end;
write(‘Co ‘,dch,’ so chan, tong la ‘,sch);
writeln;
write(‘Co ‘,dle,’ so le, tong la ‘,sle);
readln
end.