Сформировать два новых массива: . В первый массив поместить элементы с четными индексами, а во второй с нечетными

@Дмитрий32 · Регистрация: 07.06.2013

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

Задан числовой массив размером 10. Сформировать 2 массива размером 5. В первый массив поместить элементы с четными индексами, а во второй с нечетными.

@Midian · 08.06.2013, 11:13

Pascal

uses crt;
var
a: array [1..10] of integer;
b,c: array [1..5] of integer;
i,j,l: byte;
begin
write('Массив A: ');
for i:=1 to 10 do
begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln;
j:=0; l:=0;
for i:=1 to 10 do
if (i mod 2 = 0) then
begin
inc(j);
b[j]:=a[i];
end
else
begin
inc(l);
c[l]:=a[i];
end;
write('Массив B: ');
for i:=1 to 5 do write(b[i],' ');
writeln;
write('Массив C: ');
for i:=1 to 5 do write(c[i],' ');
writeln;
end.

@Дмитрий32 0 / 0 / 0 Регистрация: 07.06.2013 Сообщений: 4
		1
	Сформировать два новых массива: . В первый массив поместить элементы с четными индексами, а во второй с нечетными 07.06.2013, 17:22. Показов 1518. Ответов 1 Метки нет (Все метки) Задан числовой массив размером 10. Сформировать 2 массива размером 5. В первый массив поместить элементы с четными индексами, а во второй с нечетными. 0

	08.06.2013, 11:13

Сформировать два новых массива: . В первый массив поместить элементы с четными индексами, а во второй с нечетными

Решение