Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Võ Trần Nguyên

tạo mảng a gồm n phần tử (n<= 100) số nguyên viết chương trình tính và in ra màng hình tổng và số lượng phần tử chẵn trong mảng

Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:44

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;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then

begin

t:=t+a[i];

inc(dem);

end;

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

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

readln;

end.


Các câu hỏi tương tự
Danh Nguyễn
Xem chi tiết
ngomanhcuong
Xem chi tiết
Quân Gaming TV
Xem chi tiết
Thảo Nguyễn
Xem chi tiết
Vương Tâm
Xem chi tiết
Nguyễn Quang Kiệt
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Nghia Phan
Xem chi tiết
Trâm Đỗ
Xem chi tiết