Viết công thức nhập vào từ bàn phím số nguyên dương N và dãy A gồm N số nguyên dương A1,A2,…..AN (n<=250). Hãy chỉ ra vị trí phần tử chia hết cho 3 và 5 và đưa ra tổng các phần tử đó. / Mọi người ơi giúp tớ với ạ, cảm ơn các cậu nhiều nhiều!! /
Viết công thức nhập vào từ bàn phím số nguyên dương N và dãy A gồm N số nguyên dương A1,A2,…..AN (n<=250). Hãy chỉ ra vị trí phần tử chia hết cho 3 và 5 và đưa ra tổng các phần tử đó. / Mọi người ơi giúp tớ với ạ, cảm ơn các cậu nhiều nhiều!! /
var n, i: byte;
a:array[1..250] of byte;
s: word;
begin
write(‘n = ‘); readln(n);
s:=0;
for i:=1 to n do
begin
write(‘a[‘, i, ‘] = ‘);
readln(a[i]);
if a[i] mod 15 = 0 then
s:=s+a[i];
end;
Write(‘cac phan tu chia het cho 3 & 5: ‘);
for i:=1 to n do if a[i] mod 15 = 0
then write(i, ‘ ‘);
Writeln; write(‘tong: ‘, s);
readln
end.