Var
  a:array[1..50] of integer;
  i,c:integer;
Begin
  for i:=1 to 50 do   
  Begin
     a[i]:=random(300)-150;
     write(a[i],' ');
     if (a[i]>9) and (a[i]<100) then c:=c+1;
  End;
  Writeln;
  write('Количество всех элементов этого массива, которые являются положительными двузначными числами равняется ',c);
End.

Const
  N = 10;

var
  a: array [1..N] of integer;
  k,i: integer;

begin
  k := 0;
     //Для тестирования заполняем массив случайыми числми
  for i := 1 to N do
  begin
    if (a[i]>9) and(a[i]<100) then k := k + 1;
    write(a[i]:4);
  end;
  writeln;
  writeln('Двузначных положительных: ', k);
end.