Đáp án:

Uses crt;
Var B:Array[1..100] of integer;
      i, n, tc, tl, tm: longint;
Begin
     Clrscr;
     Write('Nhap n = '); readln(n);
     For i:=1 to n do
           Begin
                Write('B[',i,']=');
                Readln(B[i]);
            End;
     tc:=0; tl:=0; tm:=0;
     For i:=1 to n do if B[i] mod 2 = 0 then inc(tc, b[i]);
     For i:=1 to n do if B[i] mod 2 = 1 then inc(tl, b[i]);
     For i:=1 to n do inc(tm, b[i]);
     Writeln('Tong so nguyen chan la: ',tc:0:2);
     Writeln('Tong so nguyen le la: ',tl:0:2);
     Writeln('Tong gia tri cua day so la: ',tm:0:2);
Readln
End.

Giải thích các bước giải:

uses crt; 
var a: array[1..100] of integer; 
j,i,n,sole,sochan,so_ngto:integer; 

{Than chuong trinh} 
begin 
clrscr; 
write('N= '); readln(N); 
for i:=1 to n do 
begin 
write('A(',i,')= '); 
readln(a[i]); 
end; 
{Kiem tra} 
sochan:=0; 
sole:=0; 
so_ngto:=0; 
for i:=1 to n do begin 
if (a[i] mod 2 = 0) then sochan:=sochan+1 
else if (a[i] mod 2 = 1) then sole:=sole+1; 
if a[i]>1 then 
begin 
if a[i]=2 then so_ngto:=so_ngto+1 
else begin 
j:=1; 
repeat 
j:=j+1; 
until (a[i] mod j=0) or (j=a[i]-1); 
if j=a[i]-1 then so_ngto:=so_ngto+1; end; 
end; end; 
writeln('Trong day co: '); 
writeln(sole,' so le'); 
writeln(sochan,' so chan'); 
writeln(so_ngto,' so nguyen to'); 
readln 
end.