Học sinh giỏi Thạnh Mỹ Tây – Châu Phú – An Giang

This WordPress.com site is the cat’s pajamas

Tổng số lượng số chẵn, số lẻ – Lê Quang Tuấn

Để lại bình luận

program tongsochanle;
uses crt;
var a:array[1..250] of integer;
n,i,sc,sl:integer;
begin
clrscr;
write(‘Nhap so phan tu cua day, N = ‘); readln(n);
for i:=1 to n do
begin
write(‘So thu ‘,i,’ = ‘); readln(a[i]);
end;
sc:=0; sl:=0;
for i:=1 to n do
begin
if a[i] mod 2 = 0 then sc:=sc+1 else
if a[1] mod 2 = 1 then sl:=sl+1;
end;
writeln(‘Tong so chan = ‘,sc,’ ; Tong so le = ‘,sl);
readln;
end.

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s