CОС. НУЖНА ЗАДАЧА В ПАСКАЛЕ. - Паскаль, Turbo Pascal, PascalABC.NET

Татьянааааак · 25.06.2013, 00:01

Дан массив из N элементов. Сформулировать из него 2 массива: первый-из элементов исходного массива с четными номерами, второй-из элементов с нечетными номерами.

Mad_Cat · 25.06.2013, 05:51

Код:

k1:=0;
k2:=0;
for i:=1 to n do
if odd(i) then begin inc(k1);b[k1]:=a[i];end
else begin inc(k2);c[k2]:=a[i];end;

25.06.2013, 00:01	#1
Татьянааааак Новичок Джуниор Регистрация: 24.06.2013 Сообщений: 2	CОС. НУЖНА ЗАДАЧА В ПАСКАЛЕ. Дан массив из N элементов. Сформулировать из него 2 массива: первый-из элементов исходного массива с четными номерами, второй-из элементов с нечетными номерами.

25.06.2013, 05:51	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `k1:=0; k2:=0; for i:=1 to n do if odd(i) then begin inc(k1);b[k1]:=a[i];end else begin inc(k2);c[k2]:=a[i];end;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
нужна готовая. на паскале	ddeman666	Фриланс	4	14.06.2010 18:20
Задача на двумерные массивы в паскале, нужна помощь	GaJIbI4	Помощь студентам	3	15.04.2009 09:31
Нужна помощь в паскале	icelady05	Помощь студентам	4	13.04.2009 17:10