Nhập vào bàn phím 1 dãy gồm n số nguyên dương. Hãy kiểm tra dãy đó có vao nhiêu số chẵn , bao nhiêu số lẽ. Tính tổng dãy đó Đếm xem dãy đó có bao nhiê

0 bình luận về “Nhập vào bàn phím 1 dãy gồm n số nguyên dương. Hãy kiểm tra dãy đó có vao nhiêu số chẵn , bao nhiêu số lẽ. Tính tổng dãy đó Đếm xem dãy đó có bao nhiê”

1. uses crt;
   var a:array[1..1000] of integer;
   i,n,chan,le,t,dem:integer;
   begin
       clrscr;
       write(‘n= ‘);readln(n);
       chan:=0;le:=0;t:=0;dem:=0;
       for i:=1 to n do
           begin
               write(‘A[‘,i,’]=’);readln(a[i]);
               if a[i] mod 2 = 0 then inc(chan) else inc(le);
               t:=t+a[i];
               if (10<=a[i]) and (a[i]<100) then inc(dem);
           end;
        writeln(‘Co ‘,chan,’ so chan’);
        writeln(‘Co ‘,le,’ so le’);
        writeln(‘Tong day so: ‘,t);
        writeln(‘Co ‘,dem,’ so co 2 chu so’);
   readln;
   end.

   Bình luận