Nhập vào n số nguyên từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ của n số vừa nhập. Cám ơn ạ

0 bình luận về “Nhập vào n số nguyên từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ của n số vừa nhập. Cám ơn ạ”

1. uses crt;
   var a:array[1..1000000] of longint;n,i,s,sl:longint;
   begin
      clrscr;
      write(‘Nhap so luong phan tu: ‘); readln(n);
      for i:=1 to n do 
         begin
            write(‘Phan tu thu ‘,i,’: ‘); read(a[i]);
            if a[i] mod 2=0 then inc(s,a[i]);
            if a[i] mod 2=1 then inc(sl,a[i]);
         end;
      writeln(‘Tong chan: ‘,s);
      writeln(‘Tong le: ‘,sl);
      readln
   end.

   Bình luận