Nhập vào 1 dãy gồm n số nguyên (n<=1000) Hãy tính và đưa ra tổng của các phần tử lẻ chia hết cho 3
Nhập vào 1 dãy gồm n số nguyên (n<=1000) Hãy tính và đưa ra tổng của các phần tử lẻ chia hết cho 3
By Delilah
By Delilah
Nhập vào 1 dãy gồm n số nguyên (n<=1000) Hãy tính và đưa ra tổng của các phần tử lẻ chia hết cho 3
program phuongt;
uses crt;
var A: array[1..1000] of integer;
n, i, s: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
s:=0;
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
if (A[i] mod 2 = 1) and (A[i] mod 3 = 0) then s:=s+A[i];
end;
write(‘Tong = ‘, s);
readln
end.
uses crt;
var i,s,n:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘N (n<=1000)=’);readln(n);
s:=0;
for i:=1 to n Do
begin
write(‘a[‘,i,’]=’);readln(A[i]);
if (a[i] mod 3=0)and(a[i] mod 2=1) then inc(s,a[i]);
end;
writeln(‘Tong cac so le chia het cho 3: ‘,s);
readln
end.