Работа с массивами (на Си или Паскаль)

[Alesis]

В массивы вводятся элементы двух невозрастаюших последовательностей Ai и Bj целых чисел, которые содержат 6 и 8 элементов соответственно. Необходимо вывести на экран общий список значений элементов этих последовательностей по их возрастанию без создания третьего массива. Предусмотреть проверку правильности ввода информации.

язык: Си или Паскаль

[Stilet]

Ну а в чем сложности? отсортирь одновременно эти два массива, а потом одновременно выведи.
Паскаля нет под рукой так что довольствуйся Делфи:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 a:array[1..6] of integer;
 b:array[1..8] of integer;
 i,j,k:integer;
begin   {$o-}
 for i:=1 to 6 do begin  a[i]:=random(100);write(a[i]:5); end;writeln;
 for i:=1 to 8 do begin  b[i]:=random(100);write(b[i]:5); end;writeln;
 for i:=1 to 6+8 do begin
   for j:=1 to 6+8 do begin
     if i<=6 then begin
       if (j<=6) then begin
        if a[i]>a[j] then begin k:=a[i];a[i]:=a[j];a[j]:=k;end;
       end else begin
        if a[i]>b[j-6] then begin k:=a[i];a[i]:=b[j-6];b[j-6]:=k;end;
       end;
     end else begin
       if (j<=6) then begin
        if b[i-6]>a[j] then begin k:=b[i-6];b[i-6]:=a[j];a[j]:=k;end;
       end else begin
        if b[i-6]>b[j-6] then begin k:=b[i-6];b[i-6]:=b[j-6];b[j-6]:=k;end;
       end;
     end;
   end;
 end;

 for i:=1 to 6 do begin  write(a[i]:5); end;
 for i:=1 to 8 do begin  write(b[i]:5); end;writeln;

 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Хотя тут до Паскаля подправить пару строк.

[Alesis]

ща буду пробовать, спасибо большое!