13. Заповнити масив різними числами-паліндромами, у яких не всі цифри однакові

[Вадим Величко]

Люди помогите решить пожалуста!!!

[kuy]

числа-паліндроми:
12321
723327
212
Как тебе нужно заполнить массив?(описать как константу или переменную, или с клавиатуры ввести, или сгенерировать случайные числа и в масив записать..)

[Вадим Величко]

описать как переменную и заполнить масив циклом а не сразу заполнить масив

[kuy]

Попробывал через стринг решить, всё вродибы как нужно написал, ну программа не рабртает почемуто. Вот что вышло у меня:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var mas:array[1..99] of integer;
    i,j,k,n: integer;
    text,text2:string;
begin
write('Input N:'); readln(n);
for i:=1 to n do
 begin
 mas[i]:=10+random(90);
 text:=IntToStr(mas[i]);
  k:=0; text2:='';
  for j:=1 to length(text) do
   begin
    inc(k);
    text2[k]:=text[j];
   end;
  for j:=length(text) downto 1 do
   begin
    inc(k);
    text2[k]:=text[j];
   end;
 mas[i]:=strtoint(text2);
 end;
write('Mas:');
for i:=1 to n do write(mas[i]:4);
readln;
end.

[kuy]

Рабочая прога:

program palindrom;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var mas:array[1..99] of real;
    i,j,k,n: integer;
    text,text2,text3:string;
begin
Randomize;
write('Input N:'); readln(n);
for i:=1 to n do
 begin
 mas[i]:=random(1000);
 text:=FloatToStr(mas[i]);
  text2:=text;
   for j:=length(text) downto 1 do
   text:=text+text[j];
   Delete(text,1,length(text) div 2);
   Delete(text,1,1);
  text2:=text2+text;
 mas[i]:=StrToFloat(text2);
 end;
writeln('Mas:');
for i:=1 to n do writeln(' ',mas[i]:0:0);
readln;
end.

Вадим Величко, подходит тебе такой код?

[Mad_Cat]

Заповнити масив різними числами-паліндромами, у яких не всі цифри однакові

var
a:array[1..101] of integer;
i,j,k,n1,n:integer;
begin
n:=1;
For i:=1 to 9 do
for j:=1 to 9 do
for k:=1 to 9 do
if (i=k) and (i<>j) then begin inc(n);a[n]:=i*100+j*10+k; end;
For i:=1 to n do
writeln(a[i]);
end.

[Вадим Величко]

Всем спасибо за код! Все отлично работает все варианты)