Var
i,j:integer;
a,b:array[1..10]of integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
j:=1;
writeln('Измененный массив: ');
for i:=10 downto 1 do
begin
b[j]:=a[i];
write(b[j],' ');
j:=j+1;
end;
end.