viết chương trình sử dụng biến mảng nhập vào một dãy n số nguyên rồi in ra màn hình các phần tử lớn hơn 0 và chia hết cho 5 từ dãy số đó

0 bình luận về “viết chương trình sử dụng biến mảng nhập vào một dãy n số nguyên rồi in ra màn hình các phần tử lớn hơn 0 và chia hết cho 5 từ dãy số đó”

1. program bt;

   uses crt;

   var n,i:intger;

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

   begin clrscr;

   readln(n);

   for i:=1 to n do

   begin

   readln(a[i]);

   if a[i] mod 5 = 0 then writeln(a[i]);

   end;

   Bình luận

2. uses crt;
   var i,n:longint; a:array[1..1000000]of longint; 
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      for i:=1 to n do 
         begin
            write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
         end;
      writeln(‘Cac phan tu lon hon 0 va chia het cho 5: ‘);
      for i:=1 to n do
          if (a[i]>0)and(a[i] mod 5=0) then write(a[i],’ ‘);
   readln
   end.

   Bình luận