Viết chương trình nhập vào mảng dãy các số nguyên dương. Tính tổng các phần tử chia hết cho 3 và 5 trong mảng đó.
2 câu trả lời
uses crt;
var a : array[1..100] of integer;
i, n, s : integer;
begin
clrscr;
s := 0;
write('Nhap so luong phan tu day : '); readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i ,' : '); readln(a[i]);
if (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then s := s + a[i];
end;
write('Tong so chia het cho 3 va 5 = ', s);
readln
end.
uses crt;
var n,n3,i:integer;
tong: longint;
a: array [1..10] of integer;
begin
clrscr;
write('So phan tu cua mang: ');readln(n);
for i:= 1 to n do
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
