var a:array [1..50] of integer;
i,k:integer;
begin
randomize;
k:=0;
for i:=1 to 50 do 
a[i]:=random(501)-200;
writeln ('50 рандомных чисел');
for i:=1 to 50 do write (' ',a[i]);
writeln;
for i:=1 to 50 do 
if (a[i]>10) and (a[i]<20) then 
k:=k+1;
writeln ('Ответ: ',k);
end.