Bài 17: Chương trình con và phân loại

trần thị phương

nhập vào dãy N số nguyên (N nhập từ bàn phím )

a. đếm xem trong dãy có bao nhiêu số chẵn

b. đếm xem trong dãy có bao nhiêu số lẻ

c. tính tổng của các phần tử là số chẵn trong dãy số nguyên

d. tính tổng của các phần tử là số lẻ trong dãy số nguyên

híp
6 tháng 5 2019 lúc 12:39

var a:array[1..32000] of integer;

i,chan,le,t,s:integer;

begin

write('nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

a, chan:=0;

for i:=1 to n do if a[i] mod 2 = 0 then chan:=chan+1;

writeln('so so chan trong day la:',chan);

b, le:=0;

for i:=1 to n do if a[i] mod 2 = 1 then le:=le+1;

writeln('so so le trong day la:',le);

c, t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('tong cua ptu chan la:',t);

d, s:=0;

for i:=1 to n do if a[i] mod 2=1 then s:=s+a[i];

write('tong cua ptu le la:',s);

Bình luận (2)

Các câu hỏi tương tự
Thúy Hà
Xem chi tiết
Thúy Hà
Xem chi tiết
Đạt Trần
Xem chi tiết
Đặng Thị Kiều Oanh
Xem chi tiết
Nhi Nguyễn
Xem chi tiết
Thanh Bình
Xem chi tiết
Hoang Minh Hieu
Xem chi tiết
Đặng dân
Xem chi tiết
Tuấn Lê
Xem chi tiết