lập trình nhập vào một mảng số nguyên gồm N phần tử(N<=100) kiểm tra và đưa ra màn hình tổng các số chia hết cho 3 hoặc chia hết cho 5 mỗi số viết trên 1 dòng giúp em với ạ em cảm ơn trước ạ <3
2 câu trả lời
Program BTT;
Uses crt;
Var A: array[1..1000] 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) or (A[i] mod 5 = 0) then s:=s+A[i];
End;
Write('S = ',s);
Readln
End.
Program cgdg;
Uses crt;
Var A: array[1..100] of integer;
S,i,n: integer;
Begin
clrscr;
Write('Nhap so hang cua day: '); Readln(n);
For i:=1 to n do
Begin
Write('So hang thu ',i,' : '); Readln(A[i]);
End;
S:=0;
For i:=1 to n do
If (A[i] mod 3=0) or (A[i] mod 5=0) then S:=S+A[i];
Write('Tong cac so chia het cho 3 hoac chia het cho 5: ',S);
Readln
End.
Không biết đúng ý bạn chưa, nếu không phải kiểu này thì nhắn để mình sửa
