Viết chương trình in ra màn hình phần tử có giá trị là bội của 2 và 5

Question

lanngoc · Answer

program BT;

uses crt;

var A:array [1..500] of integer;

n,i: integer;

Begin

clrscr;

write(‘Nhap so phan tu: ‘); readln(n);

for i:=1 to n do

begin

write(‘A[‘,i,’]=’); readln(A[i]);

end;

write(‘Phan tu la boi cua 2 va 5: ‘);

for i:=1 to n do

if (A[i] mod 2=0) and (A[i] mod 5=0) then write(A[i],’ ‘);

readln

End.

anhthu · Answer

uses crt;

var n,i:integer;

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

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do

begin

if a mod 2 = 0 and a mod 5 = 0 then write(a:2);

end;

readln;

end.