Произвести обращение массива не используя дополнительных массивов

1

Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-04-04T00:47:44+04:00

var

  a:array[1..100] of real;

  t:real;

  i, n:integer;

begin

  randomize;

  write('n = '); readln(n);

  writeln('Исходный массив');

  for i := 1 to n do

  begin

    a[i] := random(21) - 10;

    write(a[i], ' ');

  end;

  writeln;

  writeln('Преобразованный массив');

  for i := 1 to n div 2 do

  begin

    t := a[i];

    a[i] := a[n - i + 1];

    a[n - i + 1] := t;

  end;

 for i := 1 to n do

   write(a[i], ' ');

  writeln;

end.