Составить программу формирования массива, задача на процедуру(procedure) Опции

[unFair]

Даны натуральные числа К и N. Составить программу формирования массива А, элементами которого являются числа, сумма цифр которых ровна K и которые не больше N.

вот мой код

uses crt;
var
  a:array[1..20] of integer;
  k,n:byte;
  i,x:integer;
  procedure abc(i:integer);
begin
end;
begin
  clrscr;
  writeln('vvedite k: '); readln(k);
  writeln('vvedite n: '); readln(n);
  for i:=1 to 100 do
     if (i=k) and (i<=n) then a[i]:=i
     else if (((i mod 10)+(i div 10))=k) and (((i mod 10) or (i div 10))<n) then a[i]:=I;
  for i:=1 to 100 do
     write(a[i], ' '); readln;
     writeln;
end.

На экран вывводится примерно след:

введите к: 5
введите n: 10
0 0 0 5 0 0 0 0 0 0 0 0 14 0 0 0 0 0 0 2565....

т.е., понятное дело, совершенно не то, что нужно
ПС: Задача на процедуру, но я её только описал, т.к. не знаю что она должна делать в задаче.

Сообщение отредактировано: volvo - 27.11.2009 19:52

[GoodWind]

inc(result,n mod 10);  n:=n div 10;

красивое решение