Tính tổng các phần tử trong mảng chưa hết cho 3. Cho mảng một chiều A gồm n phần tử(n<=500), các phần tử của mảng là số nguyên. Tính và đưa ra màn hình tổng các phần tử chia hết cho 3.
Tính tổng các phần tử trong mảng chưa hết cho 3. Cho mảng một chiều A gồm n phần tử(n<=500), các phần tử của mảng là số nguyên. Tính và đưa ra màn hình tổng các phần tử chia hết cho 3.
Program BTT;
Uses crt;
Var A: array[1..500] of longint;
n,i,s: longint;
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 3 = 0 then s:=s+A[i];
End;
Write(‘S = ‘,s);
Readln
End.
var n,i,s:integer;
a: array [1..500] of integer;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’ : ‘; read(a[i]);
if a[i] mod 3 = 0 then s:=s+a[i];
end;
writeln;
write(‘Tong cac phan tu chia het cho 3 la: ‘,s);
readln;
end.