подскажите паскаль

[Катюшка]

С помощью процедуры!
Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность (например 1234, 5789)

[SuperVisor]

какого размера массив? или цифры вводятся пользователем? может берутся из файла? обязательно нужен источник!!!!

[zetrix]

Не нужен.. Просто надо найти все N-значные числа... Т.е. если n=3, ответ должен быть таким: 123, 234, 345, 456, 567, 678, 789, 890. (890 - возможно не надо!)

[SuperVisor]

Сообщение от zetrix

Просто надо найти все N-значные числа... Т.е. если n=3, ответ должен быть таким: 123, 234, 345, 456, 567, 678, 789, 890. (890 - возможно не надо!)

Это любому понятно и прцедура не очень сложная...

Сообщение от zetrix

Не нужен..

А вот с этим вынужден не согласится: Если мы объявляем массив с заданным числом элементов и пользователь его заполняет ( или Random) Мы будем просто от начала до конца массива проверять подходят ли они под заданное условие.
Если они берутся из файла, то не мешало бы объявиь динамический массив и при добавлении в него числа наращивать переменную - количество элементов массива, к тому же тут возникнет вопрос о распозновании строк.

[Катюшка]

нужно чтобы пользователь вводил цифры!

[SuperVisor]

Вот это совсем другой разговор... Вот пример работающего кода для 10-и введеных чисел:

program unique;
 
const k=10; //константа определяет количество вводимых символов
 
var
a: array[1..k] of integer;
i: integer;
n: byte;
 
procedure Check(arr: array of integer; num: byte); //нужная процедура
var
S: string;
i: integer;
c: byte;
begin
for i:= 1 to k do  // С первого по последний элемент массива
if length(inttostr(arr[i]))=n then // если длина числа равна заданной
begin
S:=inttostr(arr[i]); //переводим число в строку
for c:=2 to num do // и со второго символа числа проверяем
if S[c]<=S[c-1] then break //если предыдущий символ меньше либо равен
//текущему, выходим из цикла
else if c=num then write(S,' '); // иначе если текущий символ - последний
//пишем число
end;
end;
 
begin
Writeln('Введите ',k,' чисел');
for i:= 1 to k do Read(a[i]);
writeln;
Writeln('Введите количество символов в числе');
Readln(n);
Check(a,n);
end;

Код 100% рабочий, только-что из кузницы. Единственное, что можно добавить - проверку на введение именно цифр, а не букв или символов - в этом случае код станет абсолютно без изъянов.