Viết chương trình nhập vào một dãy gồm N phần tử (N=<100) In ra màn hình các phần tử chia hết cho 5

program bai_giai;

uses crt;

var a:array[1..100]of longint;i,n:longint;

begin

clrscr;

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

for i:=1 to n do 

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to n do if(a[i] mod 5=0)then write(a[i],' ');

readln

end.

Program baitap;

Uses crt;

Var A:array[1..100] of integer;

      n,i:integer;

Begin

Clrscr;

Write('n='); Readln(n);

For i:=1 to n do

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     End;

Write('Cac so chia het cho 5:');

For i:=1 to n do

   If A[i] mod 5=0 then write('   ',A[i]); 

Readln

End.