program znanija;

const n = 20;//длина массива

var

c,i,count: integer;

arr: array[0..n] of integer;

begin

for i := 0 to n do

begin

c:=random(200);

arr[i]:= c;

end;

writeln(arr);

writeln();

for i:=0 to n do

if (arr[i]>=10) and (arr[i]<100) then

count:=count+1;

write('количество двухзначных чисел = ' + count);

end.