[resultat]

нужно создать массив с определенным количество цифр и это должно вводиться в Edit'e самим пользователем

затем нужно проверить делиться ли каждое число на 5 и не делится ли оно на 7(знаю что это двойное условие и что нужно использовать mod)

и числа которые удовлетворяют этим условиям вписать в другой массив

(нужно чтобы массивы заполнялись в StringGrid)

не знаю.как все это правильно оформить..

[angvelem]

1.

Код:

var
  Buffer : array of Integer;
begin
  SetLength(Buffer, StrToIntDef(Edit1.Text, 0));
...

2. Для начала не помешает массив заполнить.

[resultat]

да.но мы же ставим ограничения
ну то есть диапазон
когда задаем,заполняем сам массив
а нам же нужно чтобы кол-во цифр определил пользователь вводом в edit
извините.я совсем не разбираюсь..

[angvelem]

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

нужно создать массив с определенным количество цифр и это должно вводиться в Edit'e самим пользователем

затем нужно проверить делиться ли каждое число на 5 и не делится ли оно на 7(знаю что это двойное условие и что нужно использовать mod)...

Ну и где здесь написано про заполнение? Вижу только про создание массива.

[resultat]

я не так сильно разбираюсь в этом как вы.

[angvelem]

Код:

var
  BufferIn : array of Integer;
  BufferOut : array of Integer;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
begin
  // Создаём массив размерностью, заданной в Edit1
  SetLength(BufferIn, StrToIntDef(Edit1.Text, 0));
  // Заполняем его случайными числами
  for I := 0 to Length(BufferIn) - 1 do
    BufferIn[i] := Random(100);
  // проверяем на условие и, если удовлетворяет, увеличиваем размерность
  // выходного массива и копируем из основного массива
  for I := 0 to Length(BufferIn) - 1 do
    if (BufferIn[i] mod 5 = 0) and (BufferIn[i] mod 7 <> 0) then
    begin
      SetLength(BufferOut, Length(BufferOut) + 1);
      BufferOut[Length(BufferOut) - 1] := BufferIn[i];
    end;
end;

Как то так.

[resultat]

пожалуйста,если вам не сложно,можете теперь пояснить то,что вы написали

[angvelem]

Смотри выше.

[resultat]

спасибо.при вводе данной программы ошибок мне не выводится
но она и не работает..определенно я ничего не понимаю и у меня большие проблемы

[resultat]

не вижу где мы значение нужного нам числа копируем в StringGrid

[angvelem]

Нужно добавить код, который из массива BufferOut, будет заполнять StringGrid.

[resultat]

еще раз спасибо.надеюсь разберусь.