Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Bùi Minh Hải

cho số nguyên N và 1 dãy số N số nguyên. tính tổng của tất cẩ các số chẵn có ở trong dãy b. đếm số lượng các số dương lẽ ở trong dãy

 

Nguyễn Lê Phước Thịnh
1 tháng 3 2021 lúc 23:48

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

if a[i] mod 2=0 then t:=t+a[i];

dem:=0;

for i:=1 to n do 

if a[i] mod 2=1 then inc(dem);

writeln('Tong cac so chan la: ',t);

writeln('So luong so duong le la: ',dem);

readln;

end.


Các câu hỏi tương tự
Sarah Lilia
Xem chi tiết
Lê Phương Thảo
Xem chi tiết
Huỳnh Mai Anh Thư
Xem chi tiết
Lee Jihoon
Xem chi tiết
Kawai
Xem chi tiết
Anh Thư
Xem chi tiết
Dandelion
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Duong Ngoc Khue
Xem chi tiết