Bài 4:

program tongchan;

uses crt;

var A:array[1..100] of integer;

      i:integer;

      s:longint;

begin

clrscr;

writeln('NHAP GIA TRI CAC SO CUA DAY');

s:=0;

for i:=1 to 100 do

 begin

  write('So thu ',i,': ');   readln(A[i]);

  if A[i] mod 2=0 then s:=s+A[i];

 end;

write('Tong cac so chan co trong day la: ',s);

readln

end.

Bài 5:

program tongchan;

uses crt;

var A:array[1..100] of integer;

      i,dem:integer;

begin

clrscr;

writeln('NHAP GIA TRI CAC SO CUA DAY');

dem:=0;

for i:=1 to 100 do

 begin

  write('So thu ',i,': ');   readln(A[i]);

  if A[i] mod 2=0 then dem:=dem+1;

 end;

write('Trong day co ',dem,' so chan');

readln

end.

Bai 3:

uses crt;
var i:longint; a:array[1..10000]of longint;
begin
clrscr;
   for i:=1 to 100 do
      begin
         write('a[',i,'=');readln(a[i]);
      end;
   write('Boi cua 3: ');
   for i:=1 to 100 do if a[i] mod 3=0 then write(a[i],' ');
readln
end.

Bai 4:

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

Bai 5:

uses crt;
var i,t:longint; a:array[1..10000]of longint;
begin
clrscr;
   for i:=1 to 100 do
      begin
         write('a[',i,'=');readln(a[i]);
      end;
   for i:=1 to 100 do if a[i] mod 2=0 then inc(t);
   writeln('So cac so chan: ',t);
readln
end.