Построить новый массив с элементами, значения которых соответственно равны a1, an+1, a2, an+2,…, an, a2n

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

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

Дан массив a1, a2, a3,…, a2n. Построить новый массив с элементами, значения которых соответственно равны a1, an+1, a2, an+2,…, an, a2n.

@Joy · 13.12.2017, 07:57

Pascal

const n=10;
var
  a,b:array[1..2*n] of integer;
  i,j:integer;
 
begin
  for i:=1 to 2*n do begin
   a[i]:= i;
   write(a[i],' ');
  end; 
  writeln;
  for i:=1 to n do begin
      j:=j+1;
      b[j] := a[i];
      j:=j+1;
      b[j]:=a[n+i];
    end;
  writeln('Результат:');  
  for i:=1 to 2*n do write(b[i],' ');
  writeln;
end.

@Passscal 0 / 0 / 0 Регистрация: 10.12.2017 Сообщений: 9
		1
	Построить новый массив с элементами, значения которых соответственно равны a1, an+1, a2, an+2,…, an, a2n 12.12.2017, 22:41. Показов 1926. Ответов 1 Метки нет (Все метки) Дан массив a1, a2, a3,…, a2n. Построить новый массив с элементами, значения которых соответственно равны a1, an+1, a2, an+2,…, an, a2n. 0

	13.12.2017, 07:57

Построить новый массив с элементами, значения которых соответственно равны a1, an+1, a2, an+2,…, an, a2n

Решение