Bài 6: Phép toán, biểu thức, câu lệnh gán

trần duy hiếu

cho dãy a gồm N số nguyên . Viết chương trình tính và đưa ra màn hình tổng các số vừa chia hết cho 2 vừa chia hết cho 3

 

Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 9:41

uses crt;

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

i,n,t: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) and (a[i] mod 3=0) then t:=t+a[i];

writeln(t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Smile Cong
Xem chi tiết
Kiều Oanh
Xem chi tiết
nguyễn thị cẩm tiên
Xem chi tiết
Hary Jen Li
Xem chi tiết
Ha Ha
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết
Nguyễn Triệu Nhật Khánh
Xem chi tiết
Huuthuong
Xem chi tiết
Lê Huy
Xem chi tiết