слить два массива в один

@Sir-Aragon · Регистрация: 28.10.2008

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

объединить два массива в один, так чтобы элементы шли через один!
Например:

1 массив
9 5 1 4 2

2 массив
3 3 6 1 7

результат
9 3 5 3 1 6 4 1 2 7

@][акер · 13.03.2010, 17:39

Pascal

var
  a: array[1..5] of word;
  b: array[6..10] of word;
  c: array[1..10] of word;
  i: byte;
begin
  randomize;
  for i := 1 to 10 do
    if i < 6 then begin a[i] := random(201); if i = 5 then writeln(a[i]) else write(a[i],' '); c[i] := a[i] end
    else begin b[i] := random(201); write(b[i],' '); c[i] := b[i] end;
  writeln;
  for i := 1 to 10 do
    write(c[i],' ');
  readln
end.

@Puporev · 13.03.2010, 17:40

Pascal

uses crt;
const n=9;
var a,b,c:array[1..2*n] of integer;
    i:byte;
begin
clrscr;
writeln('Массив А:');
for i:=1 to n do
 begin
  a[i]:=i;
  write(a[i],' ');
 end;
writeln;
writeln;
writeln('Массив B:');
for i:=1 to n do
 begin
  b[i]:=10*i;
  write(b[i],' ');
 end;
writeln;
writeln;
writeln('Массив C:');
for i:=1 to 2*n do
 begin
  if odd(i) then  c[i]:=a[i div 2+1]
  else c[i]:=b[i div 2];
  write(c[i],' ');
 end;
readln
end.

@Futbolist12 · 14.04.2010, 10:04

А что делает оператор div в этой программе объясните плиз?

@Puporev · 14.04.2010, 10:28

Как и во всех других программах оператор div определяет результат целочисленного деления, в данном случае на 2, или ищет середину массива.

@Sir-Aragon 328 / 11 / 2 Регистрация: 28.10.2008 Сообщений: 76
		1
	слить два массива в один 13.03.2010, 17:32. Показов 12836. Ответов 4 Метки нет (Все метки) объединить два массива в один, так чтобы элементы шли через один! Например: 1 массив 9 5 1 4 2 2 массив 3 3 6 1 7 результат 9 3 5 3 1 6 4 1 2 7 0

@Futbolist12 4 / 4 / 0 Регистрация: 10.02.2010 Сообщений: 87
	14.04.2010, 10:04	4
	А что делает оператор div в этой программе объясните плиз? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.04.2010, 10:28	5
	Как и во всех других программах оператор div определяет результат целочисленного деления, в данном случае на 2, или ищет середину массива. 1

Опции темы