uses crt;

var n,i,tong:integer;

a:array[1..1000] of integer;

BEGIN

        clrscr;

        write('Nhap n:'); readln(n);

        for i:=1 to n do

        begin

                write('Nhap a[',i,']:');

                readln(a[i]);

        end;

        write('IN RA:');

        for i:=1 to n do write(a[i],' ');

        writeln;

        write('Cac so chia het cho 2 va chia het cho 5:');

        for i:=1 to n do

                if (a[i] mod 2=0) and (a[i] mod 5=0) then

                write(a[i]);

        writeln;

        tong:=0;

        for i:=1 to n do

                if (a[i] mod 2=1) and (i mod 2=0) then

                tong:=tong+a[i];

        write('Tong cac phan tu le co chi so chan:',tong);

        readln

END.

Chúc bạn học tốt!

uses crt;

var a: array[1..100] of integer;

n,i,s: integer;

begin

clrscr;

write ('nhap so phan tu: ');  readln (n);

for i:=1 to do

begin

write ('nhap a[',i,']: ');   readln (a[i]);

if (i mod 2=0) and (a[i] mod 2<>0) then s:=s+a[i];

end;

write ('mang nguoc la: ');

for i:=n downto 1 do write (a[i],'   ');

writeln;

write ('cac so chia het cho 2 va 5 la: ');

for i:=1 to n do

if (a[i] mod 2=0) and (a[i] mod 5=0) then write (a[i],'   ');

writeln ('tong cac phan tu le co chi so chan: ',s);

readln;

end.