Посмотрите в чем ошибка

[Никуля_усталая]

Посмотрите, пожалуйста, в чем ошибка(не делает инверсию почему-то). условие задачи: Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить инверсию для каждой трети массива.

Program vv;
Uses crt;
Const n=12;
Var a:array [1..n] of integer;
i,b,c: integer;
begin
for i:=1 to n do begin
a[i]:=random(25)-12;
write (a[i]:4);
end;

b:=4;
for i:=b downto 1 do begin
c:=a[i];
a[i]:=a[n+1-i];
c:=a[n+1-i];
writeln (a[n+1-i]:4);
end;

for i:=2*b downto b+1 do begin
c:=a[i];
a[i]:=a[n+1-i];
c:=a[n+1-i];
writeln (a[n+1-i]:4);
end;

for i:=n downto 2*b+1 do begin
c:=a[i];
a[i]:=a[n+1-i];
c:=a[n+1-i];
writeln (a[n+1-i]:4);
end;
readln;
end.

[_-Re@l-_]

Что есть инверсия?

[Никуля_усталая]

ну должен их местами поменять, в итоге 1 окажется на последнем месте, а 4 на 1.ну вообщем должны элементы местами поменяться

[_-Re@l-_]

Ааааа...То есть если 1 2 3 4, то должно стать 4 3 2 1?

[Никуля_усталая]

да, так для каждой трети

[_-Re@l-_]

Ну, тогда так:

Uses CRT;
Var
     A:array[1..12] of Integer;
     I,B:Integer;
Begin
        Clrscr;
        Randomize;
        For I:=1 To 12 Do
        Begin 
                A[I]:=Random(25)-12;
                Write(A[I],' ');
        End;

Дальше...Либо можно линейно менять, либо циклами. Однако делать сейчас циклами нет времени, только если завтра...Ну или кто-то другой напишет

[Никуля_усталая]

спасибо.ток мне на завтра надо, очень срочно, это вопрос жизни и смерти)

[GetMax]

Не уверен что правильно. Но может быть так.

b:=4;
Repeat
   For i:=b DownTo b-3 do Write(A[i]:4);
   Inc(b,4);
Until b > 12;
Readln
End.

[iBuTTHead]

for i:=1 to 3 do
   begin
      for j:=1 to 4 do