решить вот это

[Евгений77777]

дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-35..75]

1. вставить число К1 после всех элементов, больших заданного числа К,а число К2 перед всеми элементами кратными 3.

2. Перенести первые К элементов в конец.

вывести результат в edit

[Hacker19_90]

и в чём проблема?

[Евгений77777]

нужен код программы

[Hacker19_90]

Наработки есть?
нет? Тогда, ася в профиле! стучите! Недорого!

[deathNC]

procedure TForm1.Button1Click(Sender: TObject);
var
  arr, buff: Array of Integer;
  n, i, j: Integer;
  K, K1, K2: Integer;
begin
  ShowMessage(#1054#1093#44#32#1080#32#1076#1086#1083#1075#1086#32#1078#1077+
       #32#1090#1099#32#1073#1091#1076#1077#1096#1100#32#1078#1076#1072#1090+
       #1100#44#32#1087#1072#1088#1077#1085#1100#32#58#68#33);
  n := $10000; // :D :D :D
  SetLength(arr, n);
  dec(n);
  // random'ы
  for i := 0 to n do
    arr[i] := -35 + Random(111); // 75 - (-35) + 1 = 111;
  k := StrToInt(Edit_K.Text);
  k1 := StrToInt(Edit_K1.Text);
  k2 := StrToInt(Edit_K2.Text);
  // 1:
  i := n;
  while i >= 0 do
    begin
      If arr[i] > k then
        begin
          SetLength(arr, High(arr) + 2);
          for j := high(arr) - 1 downto i + 1 do
            arr[j + 1] := arr[j];
          arr[i + 1] := k1;
        end;
      If arr[i] mod 3 = 0 then
        begin
          SetLength(arr, High(arr) + 2);
          for j := high(arr) - 1 downto i do
            arr[j + 1] := arr[j];
          arr[i] := k2;
          dec(i);
        end;
      dec(i);
    end;
  n := high(arr);
  // 2:
  buff := copy(arr, 0, k);
  for i := 0 to n - k do
    arr[i] := arr[i + k];
  for i := n - k to n do
    arr[i] := buff[i + k - n];
  // вывод
  edit1.Clear;
  for i := 0 to n do
    Edit1.Text := Edit1.Text + IntToStr(arr[i]) + '; ';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;