viết chương trình đếm các số trong đoạn từ 3 đến 9 trong dãy số nguyên nhập từ bàn phím

0 bình luận về “viết chương trình đếm các số trong đoạn từ 3 đến 9 trong dãy số nguyên nhập từ bàn phím”

1. uses crt;
   var i, n, dem: word;

         a:array[1..100] of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n Do 
         begin
             write(‘a[‘,i,’]=’); readln(A[i]);
         end;
      dem:=0;
      for i:=1 to n do if a[i] in [3..9] then inc(dem);
      writeln(‘so luong la ‘,dem);
   readln
   end.

   Bình luận

2. uses crt;
   var i,n,dem:longint; a:array[1..100000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n Do 
         begin
             write(‘a[‘,i,’]=’);readln(A[i]);
         end;
      dem:=0;
      for i:=1 to n do if a[i] in [3..9] then inc(dem);
      writeln(‘Dem= ‘,dem);
   readln
   end.

   Bình luận