[Lewa]

У девушки лабораторная горит, сам в программировании не шарю.

Требуется ввести длину одномерного массива, состоящего из целых чисел, и его элементы.
Затем удалить все элементы, кроме имеющих заданное произведение цифр.

..т.е., число 28 следует прочесть как 2*8=16. При заданном произведении 16 оставим в массиве 28, 82, 44, 441...

Программа компилируется в FPC.

[Asinkrit]

Непонятно, зачем ты взялся за работу, если в программировании не шаришъ)
Желаемое определение массива:

Код:

type
  TIntegerArray = array of Integer;

функция определения, является ли число "производным")

Код:

function IsValidatedNum(const aNum, aProduct:Integer):boolean;
var
  str:string;
  tmpProduct, i:Integer;
begin
  str:=IntToStr(aNum);
  tmpProduct:=StrToInt(str[1]);
  if Length(str) > 1 then
    for i:=2 to Length(str) do
      tmpProduct:=tmpProduct*StrToInt(str[i]);
  Result:=tmpProduct=aProduct;
end;

Процедура очистки массива от "непроизводных" чисел:

Код:

procedure RemoveNonProductNumbers(var a:TIntegerArray; const aProduct:Integer);
var
  i,c:integer;
begin
  if Length(a)>0 then
    begin
    c:=Low(a);
    for i:=Low(a) to High(a) do
      if IsValidatedNum(a[i],aProduct) then
        begin
        a[c]:=a[i];
        Inc(c);
        end;
    SetLength(a,c);
    end;
end;

Сам вызов процедуры:

Код:

  ...
  RemoveNonProductNumbers(FIntegerArray,28);
  ...

FIntegerArray ( :TIntegerArray; ) - твой массив с числами.
С остальным думаю справишься)

[Lewa]

эта, спасибо конечно!

компилятор FPC выводит 35 косяков..
девочка в ужасе. говорит, не проходили такое. речь о процедурах

[NIch]

Ну каждый косяк нужно по очереди обрабатывать...в большинстве случаев ошибки не страшные...забыл запятую, кавычки...присвоил неправильное значение переменной или вообще не объявил ее...
В данном случае если программа компилируется на Free Pascal, то просто нужно заменить некоторые процедуры Делфи на FPS...
Просто здесь написали алгоритмы работы, а реализация все равно за тобой...
Ты бы полный код подал в студию, авось и решил бы кто проблему...