Написать программу преобразования массива в массив с элементами, соответственно равными значениям элементов

@Passscal · Регистрация: 10.12.2017

Дан массив y1, y2, y3,…, y2n. Написать программу преобразования массива в массив с элементами, соответственно равными значениям элементов исходного массива y2n, y2n-1, y2n-2,…, yn+1, y1, y2,…, yn. Дополнительные массивы не использовать.

@Puporev · 10.12.2017, 17:32

Pascal

var y:array[1..50] of integer;
    n,i,j,x:integer;
begin
repeat
write('Введите половину размера массива от 1 до 25 n=');
readln(n);
until n in [1..25];
writeln('Исходный массив');
for i:=1 to 2*n do
 begin
  y[i]:=i;//для наглядности
  write(y[i]:4);
 end;
writeln;
for i:=1 to n do
 begin
  x:=y[2*n];
  for j:=2*n downto i+1 do
  y[j]:=y[j-1];
  y[i]:=x;
 end;
writeln('Преобразованный массив');
for i:=1 to 2*n do
write(y[i]:4);
end.

@Passscal 0 / 0 / 0 Регистрация: 10.12.2017 Сообщений: 9
		1
	Написать программу преобразования массива в массив с элементами, соответственно равными значениям элементов 10.12.2017, 15:56. Показов 1077. Ответов 1 Метки нет (Все метки) Дан массив y1, y2, y3,…, y2n. Написать программу преобразования массива в массив с элементами, соответственно равными значениям элементов исходного массива y2n, y2n-1, y2n-2,…, yn+1, y1, y2,…, yn. Дополнительные массивы не использовать. 0

Опции темы

Написать программу преобразования массива в массив с элементами, соответственно равными значениям элементов

Решение