bai 1

var a:array[1..100] of longint;

      n,i,s:longint;

begin

read(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

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

write('tong cac so chan la: ',s:2:0);

end.

bai 2

var a:array[1..100] of longint;

      n,i,s:longint;

begin

read(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

if a[i] mod 2=1 then s:=s=a[i];

write('tong cac so chan la: ',s:2:0);

end.

Muốn xem kết quả bạn ấn đông thời 2 phím alt+f5 nhé

Chúc làm bài tốt :)

bài 1: 

  uses crt;
var a: array [1..100] of integer;
 n,i,s,d: integer;
 begin
  clrscr; d:=0; s:=0;
  write('Nhap n :'); readln(n);
  for I:=1 to n do begin
   write('a[',i,']='); readln(a[i]); end;
   write('Cac so chan la: ');
  for I:=1 to n do
   if  not odd(a[i]) then begin
   write(a[i],' '); d:=d+1; s:=s+a[i]; end;
   writeln;
   writeln('Tong = ',s);
     write('Co ',d,' so'); readln();
  end.

Bài 2: 

  uses crt;
var a: array [1..100] of integer;
 n,i,s,d: integer;
 begin
  clrscr; d:=0; s:=0;
  write('Nhap n :'); readln(n);
  for I:=1 to n do begin
   write('a[',i,']='); readln(a[i]); end;
   write('Cac so chan la: ');
  for I:=1 to n do
   if odd(a[i]) then begin
   write(a[i],' '); d:=d+1; s:=s+a[i]; end;
   writeln;
   writeln('Tong = ',s);
     write('Co ',d,' so'); readln();
  end.

đã test mong câu tl hay nhất