Как скопировать массив

[tmpnik]

у меня есть одномерный массив символов, теперь этот массив надо скопировать (а=в) в цикле(от 1 до 255), в зависимости от условия случайного числа(чётное копируем, нечётное не копируем)... как можно это реализовать?

[Dvoishnik]

оно вам нужно было?

j:=0;
for i:=1 to 255 do 
begin
 randomize;
 Flag:=random(2)+1;
 if (flag mod 2) <> 0 then 
  begin
   inc(j);
   a[j]:=b[i] ;
  end;
end;

[tmpnik]

Спасибо, но больше интересовало, как вы будете объявлять эти массивы в блоке переменных?

[Dvoishnik]

del
покажите код как у вас все это происходит?

[tmpnik]

j:=0;
var
k0,k2...kn(тут я не знаю сколько будет массивов) : array[1..255] of integer;  
for i:=1 to 255 do 
begin
 randomize;
 Flag:=random(2)+1;
 if (flag mod 2) <> 0 then 
  begin
   inc(j);
   k1(потом массив k2, затем k3 и т.д.):=k0 ;
  end;
end;

но я не знаю сколько должно быть массивов, поэтому их не описываю..

[Dvoishnik]

Почему не знаете??
У вас написано скопировать один массив в другой и того 2 массива так?

одномерный массив символов

a: array [1..255] of Char

или

s:string

причем тут числовой тип?

[puporev]

случайного числа(чётное копируем, нечётное не копируем)

flag:=random(2);
if flag=0//четное
else //нечетное

[tmpnik]

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

Почему не знаете??
У вас написано скопировать один массив в другой и того 2 массива так?

не так я не знаю заранее сколько должно быть массивов, количество массивов переменное число, в других языках, где не надо описывать каждую переменную, массивы создаются "на лету", а здесь всё надо описывать..., поэтому и не знаю как создавать здесь массивы "на лету"...

[Dvoishnik]

Так, напишите задание нормально!

[min@y™]

Как звучит задание в оригинале?