вывести элементы массива в обратном порядке

Ответ от Ёержант[гуру]

Ответ от Дмитрий михайлов[гуру]
var Q: array [0..{BLABLABLA}] of Byte;
X, Y: Byte;
begin
For X:= 0 to ({BLABLABLA} div 2) do
begin
Y:= Q[X];
Q[X]:=Q[{BLABLABLA}-X];
Q[{BLABLABLA}-X]:=Y;
end;
For X:=0 to {BLABLABLA} do Writeln(Q[x]);
end.

Ответ от Ѝдгар Зотиков[гуру]
примени эту программу
uses crt; // сдвиг массива вправо на К элементов
const n=10;
k=2;
var x: array [1..n] of integer;
y,i,j: integer;
begin
for i:=1 to n do x[i]:=2*i;
for j:=1 to k do begin
y:=x[n];
for i:=n downto 2 do x[i]:=x[i-1];
x[1]:=y;
end;
for i:=1 to n do write(x[i]:4);
readln;
end.

Ответ от 3 ответа[гуру]