Дан массив X[N] целых чисел. Не используя других массивов, переставить его элементы

Дан массив X[N] целых чисел. Не используя других массивов, переставить его элементыв обратном порядке.
Гость
Ответ(ы) на вопрос:
Гость
Const n=10;  var x:array[1..n] of integer; i,c:integer; begin writeln('Исходный массив:'); for i:=1 to n do  begin  x[i]:=random(21)-10;  write(x[i]:4);  end; writeln; for i:=1 to n div 2 do  begin c:=x[i]; x[i]:=x[n-i+1]; x[n-i+1]:=c; end; writeln('Измененный массив:'); for i:=1 to n do write(x[i]:4); writeln; end. Пример: Исходный массив:   -9   1  -7   3  -6   7   7  10   9   7 Измененный массив:    7   9  10   7   7  -6   3  -7   1  -9
Не нашли ответ?
Ответить на вопрос
Похожие вопросы