Viết chương trình nhập vào một mảng n số nguyên từ bàn phím . Tính xem có bao nhiêu số chia hết cho 3 . In kết quả ra màn hình. Giúp mình với mình cầ

0 bình luận về “Viết chương trình nhập vào một mảng n số nguyên từ bàn phím . Tính xem có bao nhiêu số chia hết cho 3 . In kết quả ra màn hình. Giúp mình với mình cầ”

1. uses crt;
   var i,n,d:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      for i:=1 to n do
         begin
            write(‘Nhap vao phan tu thu ‘,i,’: ‘);readln(a[i]);
            if a[i] mod 3=0 then inc(d);
         end;
      writeln(‘So luong cac so chia het cho 3: ‘,d);
   readln
   end.

   Bình luận

2. Program so_le;

   Uses crt;

   Var n,i,d;integer;

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

   Begin

   Clrscr;

   Write(‘Nhap n:’);

   Readln(n);

   For i:=1 to n do

       Begin

       Write(‘Nhap pt thu a[‘,i,’]’);

       Readln(a[i]);

       End;

   For i:=1 to n do

   If a[i] mod 3=0 then d:=d+1;

   Writeln(‘So cac so le la:’,d);

   Readln;

   End.

   Bình luận