const
  max=100;
var
  i:integer;
  a,b:array [1..max] of integer;//b - массив для обратного порядка
begin
  writeln('Исходный массив:');
  writeln('----------------------------------');
  write('[ ');
  //заполняем  массив
  for i:=1 to max do
  begin
    a[i]:=random(100);
    write(a[i],' ')
  end;
  write(']');
  writeln;
  writeln('----------------------------------');
  //производим замену
  for i:=1 to max do
    b[max-i+1]:=a[i];
  writeln('Полученный массив:');
  writeln('----------------------------------');
  write('[ ');
  //выводим массив
  for i:=1 to max do
    write(b[i],' ');
  write(']');
  writeln
end.