cho tệp ‘lop11a12.inp’ chứa các số nguyên,mỗi số nằm trên một dòng.hãy cho biết có bao nhiêu số chẵn trong tệp trên . mọi người làm mình vs ????????

0 bình luận về “cho tệp ‘lop11a12.inp’ chứa các số nguyên,mỗi số nằm trên một dòng.hãy cho biết có bao nhiêu số chẵn trong tệp trên . mọi người làm mình vs ????????”

1. uses crt;
   var f,g:text;
       a:array[1..1000] of integer;
       n,i,cs:byte;
   Begin
   write(‘Nhap so cac so can doc: ‘); readln(n);
   assign(f,’lop11a12.inp’);
   reset(f);
   for i:=1 to n do
    readln(f,a[i]);
   for i:=1 to n do
    if a[i] mod 2 =0 then cs:=cs+1;
   write(‘Co ‘,cs,’ so chan’);
   close(f);
   readln;

   End.

   Bình luận