Viết chương trình rồi xuất ra màn hình dãy số vừa nhập Tính tổng lẻ Đếm số chẵn

0 bình luận về “Viết chương trình rồi xuất ra màn hình dãy số vừa nhập Tính tổng lẻ Đếm số chẵn”

1. uses crt;
   var n,i,s,d:longint; a:array[1..100]of longint;
   begin
   clrscr;
      readln(n);
      for i:=1 to n do
         begin
            readln(a[i]);
            if (a[i] mod 2=1) then inc(s,a[i]) else inc(d);
         end;
      write(‘Day so: ‘);
      for i:=1 to n do write(a[i],’ ‘); writeln;
      writeln(‘Tong le: ‘,s);
      writeln(‘Co ‘,d,’ so chan’); 
   readln;
   end.

   Bình luận