[Fatal27]

Сделал 2 задания лабораторной работы, но с 3им повис. Буду очень благодарен если поможете

Само задание: Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,30]. Переставить первые три и последние три элемента местами, сохраняя по-рядок их следования.

Делал такое задание со статическим массивом, но как его сделать с динамическим не представляю.

[Fatal27]

Опять сам разобрался Все очень просто
Если вдруг кому то еще надо :

Код:

begin
edit5.clear;
edit7.clear;
Randomize;
begin
n:=StrToInt(edit8.text);
SetLength(ar,n+1);
for i:=1 to n do
  begin
   ar[i]:=-40+random(71);
   edit5.text:=edit5.text+'  '+IntToStr(ar[i]);
  end;
  end;
x:=ar[1];
ar[1]:=ar[n];
ar[n]:=x;

x:=ar[2];
ar[2]:=ar[n-1];
ar[n-1]:=x;

x:=ar[3];
ar[3]:=ar[n-2];
ar[n-2]:=x;

for i:=1 to n do
edit7.Text:=edit7.text+'  '+inttostr(ar[i]);
end;

Админ: Пользуемся тегами для оформления кода!

[lmikle]

Думаю, препод хотел от тебя немного другого:

Код:

var
  I, b : Integer;
begin
...
  for i := Low(A) To Low(A)+2 Do
  begin
    b := A[i];
    A[i] := A[Length(A)-I];
    A[Length(A)-I] := b;
  end;

Как-то так.