Получить новый массив по правилу

@Dianochka milay · Регистрация: 24.05.2013

Author24 — интернет-сервис помощи студентам

Даны действительные числа a^1,….a^2N. Получить новый массив , элементы которого a^1,a^2N,a^2,a^2N-1…a^N,a^N+1.

@Puporev · 22.03.2014, 15:54

Что за фокусы?
Это

Сообщение от Dianochka milay

a^1

наверное так
a[1]

@Dianochka milay · 22.03.2014, 16:04 **[ТС]**

да)

Добавлено через 36 секунд
это индексы

@Puporev · 22.03.2014, 16:26

Pascal

uses crt;
const nmax=100;
var a,b:array[1..nmax] of integer;
    n,m,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Половина длины массива А от 2 до ',nmax div 2,' n=');
readln(n);
until n in [2..nmax div 2];
writeln('Массив A');
for i:=1 to 2*n do
 begin
  a[i]:=random(100);
  write(a[i]:4)
 end;
writeln;
i:=2;
while i<=2*n do
 begin
  m:=a[2*n];
  for j:=2*n downto i+1 do
  a[j]:=a[j-1];
  a[i]:=m;
  i:=i+2;
 end;
for i:=1 to 2*n do
write(a[i]:4);
readln
end.

@Dianochka milay -2 / 0 / 0 Регистрация: 24.05.2013 Сообщений: 61
		1
	Получить новый массив по правилу 22.03.2014, 15:51. Показов 1042. Ответов 3 Метки нет (Все метки) Даны действительные числа a^1,….a^2N. Получить новый массив , элементы которого a^1,a^2N,a^2,a^2N-1…a^N,a^N+1. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.03.2014, 15:54	2
	Что за фокусы? Это Сообщение от Dianochka milay a^1 наверное так a[1] 0

@Dianochka milay -2 / 0 / 0 Регистрация: 24.05.2013 Сообщений: 61
	22.03.2014, 16:04 [ТС]	3
	да) Добавлено через 36 секунд это индексы 0

	22.03.2014, 16:26

Получить новый массив по правилу

Решение