Nhập vào mảng có giá trị cao nhất là 100 ,a có bao nhiêu số chia hết cho 3, b xuất ngược ra màn hình

0 bình luận về “Nhập vào mảng có giá trị cao nhất là 100 ,a có bao nhiêu số chia hết cho 3, b xuất ngược ra màn hình”

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

         i, d, n: byte;

   Begin

       Write(‘n = ‘); readln(n); d:=0;

       For i:=1 to n do

          Begin

              Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

              If a[i] mod 3=0 then inc(d);

          End; 

      Writeln(‘co ‘, d, ‘ so chia het cho 3’);

      Writeln(‘xuat nguoc mang: ‘);

      For i:=n downto 1 do write(a[i], ‘  ‘);

      Readln

   End.

   Bình luận

2. program bai_giai;

   uses crt;

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

        n,i,d:byte;

   begin

          clrscr;

          write(‘Nhap so luong phan tu: ‘);  readln(n);

          d:=0;

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                        if A[i] mod 3=0 then d:=d+1;

                 end;

          writeln(‘a. Co ‘,d,’ so chia het cho 3′);

          write(‘Day nguoc la: ‘);

          for i:=1 to n do write(A[i],’ ‘);

          readln;

   end.

   Bình luận