1.program a;

uses crt;

var i,tongchan,tongle,j,so:integer; {i là số số nguyên, j là số thứ, so là số nhập vào}

begin

clrscr;

write('Nhap so so nguyen: ');readln(i);

tongchan:=0;

tongle:=0;

j:=1;

repeat

write('Nhap so thu ',j);readln(so);

if so mod 2 = 0 then 

begin

tongchan:=tongchan+so;

end else

begin

tongle:=tongle+so;

end;

j:=j+1;

until j>i;

writeln('Tong cac so chan la ',tongchan);

writeln('Tong cac so le la ',tongle);

readln;

end.

2( Tương tự như câu 1)

Câu 1:

uses crt;
var a:array[1..1000000] of longint;
      n,i,s,sl:longint;
begin
      clrscr;
      write('n = '); readln(n);
      for i:=1 to n do
            begin
                  write('a[',i,']: '); readln(a[i]);
                  if a[i] mod 2=0 then inc(s,a[i]) else inc(sl,a[i]);
            end;
      writeln('Tong cac so chan: ',s);
      writeln('Tong cac so le: ',sl);
      readln
end.

Câu 2:

uses crt;
var a:array[1..1000000] of longint;
      n,i,s:longint;
begin
      clrscr;
      write('n = '); readln(n);
      for i:=1 to n do
            begin
                  write('a[',i,']: '); readln(a[i]);
                  if a[i] mod 4=0 then inc(s,a[i])
            end;
      writeln('Tong cac so chia het cho 4: ',s);
      readln
end.