Question

viết chương trình nhập vào mảng n số nguyên in ra màn hình những số chia hết cho 5

Answer 1

Program Tin;

Uses crt;

Var i,n:integer;

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

Begin

  Clrscr;

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

  Writeln('Nhap ',n,' phan tu: ');

  For i:= 1 to n do 

    Begin

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

    Readln(A[i]);

    End;

  Writeln('Cac phan tu chia het cho 5:');

  For i:=1 to n do If A[i] mod 5 = 0 then write(A[i],'   ');

  readln;

end.

 

Answer 2

uses crt;

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

i,n:integer;

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]:4);

readln;

end.