Сформировать новый массив из элементов исходного с четными, а затем с нечетными индексами

@N1ceOne · Регистрация: 12.09.2012

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

Уважаемые форумчане, помогите пожалуйста решить задачу. Завтра сдавать, а я никак не могу найти решение и тем более решить. Заранее спасибо)
Задан массив А размером 16. Сформировать массив В размером 16, включая впервые 8 элементов массива В значения элементов с четными индексами массива А, а в остальные 8 значения элементов с нечетными индексами массива А. Все первоначальные элементы массива вводятся с клавиатуры.

@Arcor · 13.09.2012, 20:20

ввод сам организуешь

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var A, B: Array[1..16] of Integer;
    i, j: Integer;
begin
  Randomize;
  for i := 1 to 16 do
    A[i] := Random(20);
 
  j := 1;
  for i := 1 to 16 do
    if i mod 2 = 1 then
      begin
        B[j] := A[i];
        j := j + 1;
      end;
  for i := 1 to 16 do
    if i mod 2 <> 1 then
      begin
        B[j] := A[i];
        j := j + 1;
      end;
 
  for i := 1 to 16 do
    Write(A[i], ' ');
 
  Writeln;
 
  for i := 1 to 16 do
    Write(B[i], ' ');
  Readln;
end.

@N1ceOne · 13.09.2012, 20:27 **[ТС]**

СПАСИБО ОГРОМНОЕ !!!!!!!!!!!!!!!!!!!!!!

Добавлено через 2 минуты
только мне не совсем понятны пункты 3 и 5, они важны?

@Arcor · 13.09.2012, 20:28

что за пункты 3 и 5???

@N1ceOne · 13.09.2012, 20:33 **[ТС]**

в твоем ответе нумерация слева идет от 1 до 36

@Arcor · 13.09.2012, 20:44

где ????

@Arcor · 13.09.2012, 20:46

да!, небольшой косячок есть... в строках 16 и 22 я перепутал местами <> и = в 16 оставь <> а в 22 =

@N1ceOne · 14.09.2012, 18:16 **[ТС]**

прога не сортирует на четные и нечетные
проверял через паскаль

@N1ceOne · 16.09.2012, 13:54 **[ТС]**

Сообщение от Arcor

да!, небольшой косячок есть... в строках 16 и 22 я перепутал местами <> и = в 16 оставь <> а в 22 =

все равно не сортирует на четные и нечетные

@Arcor · 16.09.2012, 14:05

значит ты что-то не то делаешь..я даже картинку вон прилепил как доказательство..что работает...

@Arcor · 16.09.2012, 14:15

может по цветам еще поймешь больше..
только я вот еще писал как-то Сформировать новый массив из элементов исходного с четными, а затем с нечетными индексами, возьми на заметку, я снова забыл в программе поменять у себя когда скрин делал

@N1ceOne · 16.09.2012, 15:34 **[ТС]**

все вижу, спасибо)

@Arcor 5706 / 2297 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	16.09.2012, 14:05	10
	значит ты что-то не то делаешь..я даже картинку вон прилепил как доказательство..что работает... 0

@Arcor 5706 / 2297 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	16.09.2012, 14:15	11
	может по цветам еще поймешь больше.. только я вот еще писал как-то Сформировать новый массив из элементов исходного с четными, а затем с нечетными индексами, возьми на заметку, я снова забыл в программе поменять у себя когда скрин делал Миниатюры 1

@N1ceOne 0 / 0 / 0 Регистрация: 12.09.2012 Сообщений: 11
		1
	Сформировать новый массив из элементов исходного с четными, а затем с нечетными индексами 13.09.2012, 20:06. Показов 2536. Ответов 11 Метки нет (Все метки) Уважаемые форумчане, помогите пожалуйста решить задачу. Завтра сдавать, а я никак не могу найти решение и тем более решить. Заранее спасибо) Задан массив А размером 16. Сформировать массив В размером 16, включая впервые 8 элементов массива В значения элементов с четными индексами массива А, а в остальные 8 значения элементов с нечетными индексами массива А. Все первоначальные элементы массива вводятся с клавиатуры. 0

@N1ceOne 0 / 0 / 0 Регистрация: 12.09.2012 Сообщений: 11
	13.09.2012, 20:27 [ТС]	3
	СПАСИБО ОГРОМНОЕ !!!!!!!!!!!!!!!!!!!!!! Добавлено через 2 минуты только мне не совсем понятны пункты 3 и 5, они важны? 0

@Arcor 5706 / 2297 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	13.09.2012, 20:28	4
	что за пункты 3 и 5??? 1

@N1ceOne 0 / 0 / 0 Регистрация: 12.09.2012 Сообщений: 11
	13.09.2012, 20:33 [ТС]	5
	в твоем ответе нумерация слева идет от 1 до 36 0

@Arcor 5706 / 2297 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	13.09.2012, 20:44	6
	где ???? Миниатюры 1

@Arcor 5706 / 2297 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	13.09.2012, 20:46	7
	да!, небольшой косячок есть... в строках 16 и 22 я перепутал местами <> и = в 16 оставь <> а в 22 = 1

@N1ceOne 0 / 0 / 0 Регистрация: 12.09.2012 Сообщений: 11
	14.09.2012, 18:16 [ТС]	8
	прога не сортирует на четные и нечетные проверял через паскаль 0

@N1ceOne 0 / 0 / 0 Регистрация: 12.09.2012 Сообщений: 11
	16.09.2012, 13:54 [ТС]	9
	Сообщение от Arcor да!, небольшой косячок есть... в строках 16 и 22 я перепутал местами <> и = в 16 оставь <> а в 22 = все равно не сортирует на четные и нечетные 0

@N1ceOne 0 / 0 / 0 Регистрация: 12.09.2012 Сообщений: 11
	16.09.2012, 15:34 [ТС]	12
	все вижу, спасибо) 0