Паскаль Строки!

[Серафимий Долговяз]

(В ПАСКАЛЕ!!!)Дана произвольная последовательность чисел длиной L1;Вторая последовательность строится так:1Вводится длина L2, так что L1<L2 затем берется k-ый элемент(случайным образом) 1-ой последовательности;Далле начиная с этого элемента мы прибавляем к "тому что осталось" от первой последовательность всю эту последовательность целеком пока L1 не будет равно L2.
Заранее спасибо!

[Serp]

тут вроде проще будет множествами сделать

[Stilet]

Если я правильно понял автору нужно что-то подобное:

 var a,b:array[1..100] of integer; k,i:integer;
begin
 k:=10;
 for i:=1 to k do begin a[i]:=random(100); write(a[i]:3)end;
 i:=k;
 randomize;
 k:=random(k);
 move(a[1],b[1],i*sizeof(a[1]));
 move(a[k],b[i+1],(i-k)*sizeof(a[1])); writeln;
 for i:=1 to i do begin write(a[i]:3)end;writeln;
 for i:=1 to i+k do begin write(b[i]:3)end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Серафимий Долговяз]

А в паскале как???

[Serge_Bliznykov]

А в паскале как???

шутить изволите?!
а код Stilet'а на чём, по Вашему?!!

[Серафимий Долговяз]

А еще есть варианты???

[Sazary]

А еще есть варианты???

Вы их коллекционируете?

[DmitryChuvashin]

Prosto napishite emy reshenie so strokami

[Серафимий Долговяз]

да плз напишите вариант со строками