Дан массив 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
Не нашли ответ?
Похожие вопросы