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

TH

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

 

NT
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ự
SC
Xem chi tiết
KO
Xem chi tiết
NT
Xem chi tiết
HL
Xem chi tiết
HH
Xem chi tiết
NT
Xem chi tiết
NK
Xem chi tiết
H24
Xem chi tiết
LH
Xem chi tiết