viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình các chữ số lớn hơn 0 và chia hết cho 5

0 bình luận về “viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình các chữ số lớn hơn 0 và chia hết cho 5”

1. uses crt;

   var i,n: integer;

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

   begin

   write(‘nhap so n:’); readln(n);

   for i:=1 to n do

   begin

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

   end;

   writeln(‘nhung so chia het cho 5 trong day la:’);

   for i:=1 to n do

   if a[i] mod 5 = 0 then

   writeln(a[i]);

   readln

   end.

   Bình luận