Câu 1:

program tong_chan;

uses crt;

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

      n,i,t:integer;

begin

      clrscr;

      write('Nhap N: ');   readln(n);

      for i:=1 to n do

            begin

                  write('A[',i,']= ');  readln(A[i]);

            end;

      t:=0;

      for i:=1 to n do

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

      write('Tong cac so chan la: ',t);

      readln;

end.

Câu 2:

program dem_am;

uses crt;

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

      n,i,d:integer;

begin

      clrscr;

      write('Nhap N: ');   readln(n);

      for i:=1 to n do

            begin

                  write('A[',i,']= ');  readln(A[i]);

            end;

      d:=0;

      for i:=1 to n do

            if A[i]<0 then d:=d+1;

      write('Co ',d,' so am');

      readln;

end.

Câu 1:

uses crt;

var a:array[1..1000] of integer;

i,n,s:integer;

begin

clrscr;

write('nhap so luong phan tu: ');   readln(n);

for i:=1 to n do

begin

write('nhap phan tu thu ',i,': ');  readln(a[i]);

end;

for i:=1 to n do

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

write('tong cac so chan trong mang la: ',s);

readln;

end.

Câu 2:

uses crt;

var a:array[1..1000] of integer;

i,n,d: integer;

begin

clrscr;

write('nhap so luong phan tu: ');   readln(n);

for i:=1 to n do

begin

write('nhap phan tu thu ',i,': ');  readln(a[i]);

end;

for i:=1 to n do

if a[i]<0 then inc(d);

write('trong mang co ',d,' so am');

readln;

end.