Сформируйте целочисленный массив, элементами которого являются двузначные числа, в которых левая цифра меньше правой. Напишите эффективную программу для решения этой задачи.

const n=20;var a:array[1..n] of integer;b,c,i:integer;beginRandomize;for i:=1 to n do begin b:=random(8)+1; c:=random(9-b)+b+1; a[i]:=b*10+c; write(a[i]:4); end;writeln;end.Пример: 89 67 19 69 49 67 45 26 79 69 67 79 78 16 38 69 35 57 79 46

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016begin  var n:=ReadInteger('n=');  if n>36 then begin    Writeln('Слишком много, максимум 72');    Exit    end  else begin    var a:=new integer[n];    var k:=0;    for var i:=1 to 8 do      for var j:=i+1 to 9 do begin        a[i]:=10*i+j;        Write(a[i],' ');        Inc(k);        if k>n then Exit        end    endend.Тестовое решение:n= 3612 13 14 15 16 17 18 19 23 24 25 26 27 28 29 34 35 36 37 38 39 45 46 47 48 49 56 57 58 59 67 68 69 78 79 89