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. program mang;

   uses crt;

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

         n,i,d: byte;

   Begin

            clrscr;

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

            for i:=1 to n do

            begin

                     write(‘A[‘,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(‘b) Day in nguoc: ‘);

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

            readln;

   End.

   Bình luận

2. 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