Gấp ạ:(, giúp mình với Viết chương trình nhập vào 1 dãy số nguyên A1, A2, A3... AN (N<=150) . Hãy tính và đưa ra màn hình tổng các số chẵn chia hết cho 4.
2 câu trả lời
uses crt;
var a: array[1..150] of integer;
i, n, sum : integer;
begin
clrscr;
sum := 0;
write('nhap n : '); readln(n);
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' : '); readln(a[i]);
if a[i] mod 4 = 0 then sum := sum + a[i];
end;
write('tong cac so chia het cho 4 : ', sum);
readln
end.
uses crt;
var a: array[1..150] of longint;
n,s,i: longint;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
begin
write ('nhap a[',i,']: '); readln (a[i]);
if (a[i] mod 4=0) and (a[i] mod 2=0) then s:=s+a[i];
end;
writeln ('tong cac so chan chia het cho 4: ',s);
readln;
end.
