Program NN;
Uses crt;
Var A: array[1..100000] of longint;
    n,i,s,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; d:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If (A[i]>10) and (A[i]<20) then
                Begin
                        s:=s+A[i];
                        inc(d);
                End;
        End;
        Writeln('S = ',s);
        Write('D = ',d);
        Readln
End.

uses crt;

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

sum, count, N, i : integer;

begin

clrscr;

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

sum := 0; count := 0;

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

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

if (a[i] > 10) and (a[i] < 20) then begin

sum := sum + a[i]; count := count + 1; end;

end; writeln('Co ', count ,' so lon hon 10, nho hon 20');

writeln('Tong = ', sum);

readln

end.