Заполнить массив различными числами Армстронга - Pascal - Ответ 6858619

uses
  crt,math;
 
Function GetArmstrong(Value:longint):boolean;
var
  a1,x,y:longint;
  m:array [1..10] of byte;
  sum:longint;
begin
  a1:=value;
  y:=1;
  sum:=0;
  while (a1 div 10) <> 0 do
    begin
      m[y]:=a1 mod 10;
      a1:=a1 div 10;
      Y:=y+1;
    end;
    m[y]:=a1 mod 10;
  for X:=1 to y do
    sum:=sum+round(power(m[x],y));
  GetArmstrong:=sum=value;
end;
 
var
  a:array[1..100] of longint;
  t,j,i,n,minx,maxx:longint;
Begin
  Clrscr;
  randomize;
  write('Enter array dim: ');  readln(n);
  for i:=1 to n do
    begin
       minx:=randomrange(10,999);
       maxx:=randomrange(100,99999999);
       if minx>maxx then
         begin
           t:=minx;
           minx:=maxx;
           maxx:=t;
         end;
       for j:=minx to maxx do
         begin
           if GetArmstrong(j) then
             begin
               a[i]:=j;
               break;
             end;
        end;
    end;
  writeln;
  for i:=1 to n do
    write(a[i]:8);
  readln;
end.