Задание:
Произвести обращение массива не используя дополнительных массивов
Решение:
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.
Знаете другой ответ?