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.
2 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
