Ответ:

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

   n,i,j:integer;

begin

new(a);

repeat

write('Введите размер массива от 1 до 100 n=');

readln(n);

until n in [1..100];

for i:=1 to n do

begin

 a^[i]:=1+random(100);

 write(a^[i]:4);

end

end. язык программирование Pascal

Объяснение:

const n=10;

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

    i:byte;

begin

randomize;

writeln('Двузначные числа: ');

for i:=1 to 10 do

begin

 a[i]:= 1 + random(100);

 if (a[i] > 9) and (a[i] < 100) then

 writeln(a[i]);

end;

writeln('Полный массив: ');

for i := 1 to 10 do

writeln(a[i]);

end.