[lmikle]

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

Решите пожалуйста !
Заменить элементы массива с k1-го по k2-й на те же элементы в обратном порядке.

Как-то так:

Код:

var
  I, Buf : Integer;
  A : Array Of Integer;
begin
  For I := K1 To K2 Do
    Begin
      Buf := A[i];
      A[i] := A[K1 + K2- I];
      A[K1 + K2- I] := Buf;
    End;

Арифметику индексов не проверял.