Làm giúp với tui đang làm kiểm tra Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy số nguyên A gồm N phần tử A1, A2, …, An. Cho b

0 bình luận về “Làm giúp với tui đang làm kiểm tra Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy số nguyên A gồm N phần tử A1, A2, …, An. Cho b”

1. Program BTH;
   uses crt;
   var a:array[1..100] of longint;
   i,n,k:byte;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           For i:=1 to n do
           Begin
                   write(‘a[‘,i,’]: ‘);readln(a[i]);
                   If a[i] mod 2=0 then k:=k+1;
           end;
           write(‘So luong so chan co trong day la: ‘,k);
           readln;
   end.

   Bình luận

2. Program Bai_tap;

   Uses crt;

   Const Nmax = 100;

   Var A: array[1..Nmax] of Integer;

          N, i, dem: byte;

   Begin

      Clrscr;

      Write(‘ Nhap so luong phan tu n= ’);

      Readln(n);

      For i:=1 to n do

             Begin

                    Write(‘ Phan tu thu ’, i, ’= ’);

                    Readln(A[i]);

             End;

      dem:=0;

         For i:=1 to n do

                If A[i] mod 2 = 0 then dem:=dem+1;

         Writeln(‘ Day so da cho co ’, dem, ’ so chan’);

     Readln

   End.                    

   Bình luận