uses crt;

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

i,n,d,dd,s: integer;

begin

clrscr;

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

d:=0;

dd:=0;

s:=0;

for i:=1 to n do

begin

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

if a[i] mod 2=0 then d:=d+1;

if (a[i]>=1) and (a[i]<=50) then dd:=dd+1;

s:=s+a[i];

end;

writeln ('Co ',d,' so chan');

writeln ('Co ',dd,' so tu 1-50');

writeln ('Tong mang la: ',s);

readln;

end.

uses crt;

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

    i, n, d1, d2, s : integer;

begin

clrscr;

write('Nhap n = '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do

    begin

        read(A[i]);

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

        if (1 <= A[i]) and (A[i] <= 50) then d2 := d2 + 1;

        s := s + A[i];

    end;

writeln('Day co ', d1, ' so chan');

writeln('Day co ', d2, ' so thuoc khoang 1 - 50');

writeln('Tong cac so = ', s);

readln

end.