Viết chương trình nhập vào mảng A gồm 100 số nguyên. Hãy đưa ra số lượng số chẵn trong dãy A mấy bạn giúp mình với ạ, mai mình nộp rồi, mình cảm ơn n

0 bình luận về “Viết chương trình nhập vào mảng A gồm 100 số nguyên. Hãy đưa ra số lượng số chẵn trong dãy A mấy bạn giúp mình với ạ, mai mình nộp rồi, mình cảm ơn n”

1. Program BTH;
   uses crt;
   var a:array [1..100] of integer;
   n, i: integer;
   chan: integer;
   begin
   clrscr;
   write(‘Nhap so phan tu co trong mang: ‘); readln(n);
   for i:=1 to n do
   begin
   write(‘Nhap vao phan tu thu A[‘,i,’]: ‘); readln(A[i]);
   end;
   chan:=0;
   for i:=1 to n do
   begin
   if (A[i] mod 2 = 0) then
   chan:=chan+1;
   end;
   writeln(‘So luong so chan co trong day la: ‘,chan);
   readln;
   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var A: array[1..100] of longint;
       i,s: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=1 to 100 do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
                   If A[i] mod 2 = 0 then inc(s);
           End;

           Write(‘Co ‘,s,’ so chan’);
           Readln
   End.

   Bình luận