Pascal!!! Даны два массива А и В размера 5, элементы которых упорядочены по возрастанию. Объединить эти массивы так, чтобы результирующий массив С(размеры 10) остался упорядоченным по возрастанию.
Pascal!!!
Даны два массива А и В размера 5, элементы которых упорядочены по возрастанию. Объединить эти массивы так, чтобы результирующий массив С(размеры 10) остался упорядоченным по возрастанию.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var a:=SeqRandom(5,10,99).Sorted.ToArray; Writeln('a=',a);
var b:=SeqRandom(5,10,99).Sorted.ToArray; Writeln('b=',b);
var c:=new integer[10];
var i:=0; var j:=0; var k:=0;
while (i<5) and (j<5) do begin
if a[i]