program Tinh_tong_le;
uses crt;
var i,n,tong:integer;
a:array[1..100] of integer;
begin
clrscr;
writeln('Chuong trinh tinh tong cac so le cua day so');
write('Nhap vao chieu dai cua day so: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu [a',i,']: '); readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if a[i] mod 2 = 1 then tong:=tong+a[i];
write('Tong cac so le cua day la : ',tong);
readln;
end.
program Chan_Le;
uses crt;
var i,n,chan,le:integer;
a:array[1..100] of integer;
begin
clrscr;
writeln('Chuong trinh Dem cac so chan, le cua day so');
write('Nhap vao chieu dai cua day so: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu [a',i,']: '); readln(a[i]);
end;
chan:=0;
le:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then chan:=chan+1 else le:=le+1;
writeln('- Day so tren co: ',chan,' so chan va ', le,' so le.');
write('- So chan la: ');
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i],'; ');
writeln;
write('- So le la: ');
for i:=1 to n do
if a[i] mod 2 = 1 then write(a[i],'; ');
readln;
end.
Ý kiến bạn đọc
Những tin cũ hơn