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.

uses crt;

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 : ‘);

Write(‘cac phan tu chia het cho  5: ‘);

for i:=1 to n do if a[i] mod 15 = 0

then write(i, ‘ ‘);

Writeln; write(‘tong: ‘, s);

readln

end.