Дан массив содержащий 100 вещественных чисел заменить первый элемент с последним второй с предпоследним и т.д.

begin
  var a: array [0..99] of integer;
  var i, k: integer;
  write('[ ');
  for i := 0 to 99 do
  begin
    a[i] := random(64);
    write(a[i], ' ');
  end;
  writeln(']');
  for i := 0 to 49 do
  begin
    k := a[i];
    a[i] := a[99 - i];
    a[99 - i] := k;
  end;
  write('[ ');
  for i := 0 to 99 do
    write(a[i], ' ');
  writeln(']');
end.

Код программы в файле, для 100 чисел. Но для примера я бы лучше взял 10, а то многовато будет. Массив автоматически заполняется рандомными числами до 100, и автоматически выводится на экран, результат перестановки также выводится на экран.