Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huỳnh Mai Anh Thư
VCT nhập số nguyên dương N (N nhỏ hơn hoặc bằng 100) sau đó nhập dãy số gồm N số nguyên a) đưa ra màn hình các số chẵn b) tính tổng các số chẵn c) Đếm xem trong dãy có bao nhiêu số chẵn .plee~~~
Nguyễn Lê Phước Thịnh
21 tháng 12 2020 lúc 19:16

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

  end;

writeln('Cac so chan la: ');

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then

   begin

write(a[i]:4);

t:=t+a[i];

inc(dem);

end; 

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

writeln('Trong day co ',dem,' so chan');

readln;

end.


Các câu hỏi tương tự
Sarah Lilia
Xem chi tiết
Nguyễn Phúc Hưng
Xem chi tiết
Dandelion
Xem chi tiết
Oanh Nguyễn
Xem chi tiết
Nhảy chân sáo mà từ từ đ...
Xem chi tiết
Việt Anh Hoàng Nguyễn
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Duong Ngoc Khue
Xem chi tiết