Ну я так думаю нужно пробежаться по всем числам в массиве, по пути превавщая число в строку, проверить количество символов в строке и сумму символов (превращенных в цифру) в строке...если параметры совпадают, то скопировать в другой массив...
Код:
var
str : string;
n : integer;
mass_ array of integer;
begin
for i := 0 to length(Mass)-1 do begin//от начала до конца массива
Mass[i] := IntToStr(str);//приравниваем элемент массива переменной
if length(str)=3 then//если длина строки 3
if StrToInt(str[0])+StrToInt(str[1])+StrToInt(str[2])=n then//если сумма n
mass_ := Copy(mass, i, 1);//функция копировать
end;
end;
Admin: Пользуемся тегами!
как то так, писал навскидку...