Одномерные массивы

[hohol90]

Помогите, если не сложно.. Не могу решить в ПАСКАЛЕ

По двум одномерным массивам размерностью A[20] и B[30] формируется третий размерностью C[50], после чего массив C сортируется по возрастанию.

[Stilet]

Если есть наработки показывай.

[hohol90]

uses crt;
var a,b,c:array[1..500] of integer;
    n,m,i,j,k:integer;
begin
clrscr;
write('n=');readln(n);
write('m=');readln(m);
writeln('Massiv A:');
for i:=1 to n do
   begin
    read(a[i]);
   end;
writeln;
writeln('Massiv B:');
for i:=1 to m do
   begin
    read(b[i]);
   end;
writeln;
i:=1; j:=1; k:=1;
while (i<=n) or (j<=m) do
  begin
   if (i<=n) and (j<=m) then
     begin
       if a[i]<b[j] then
        begin
         c[k]:= a[i];
        end
       else
        begin
         c[k]:= b[j];
        end
     end
   else if j>m then
     begin
       c[k]:= a[i];
     end
   else if i>n then
     begin
       c[k]:= b[j];
     end;
  end;
writeln('Massiv C:');
for i:=1 to m+n do
write(c[i]);
readln
end.

Только что-то не работает.
Может можно сделать попроще.

[Stilet]

Так у тебя скорее всего ниче не выйдет. Нужно сначала массив С наполнить, а потом уж его отсортировать.
Наполняй двумя циклами, но индекс массива С отдельный:

var cind:integer;
...
cind:=1;
For i:=1 to 20 do begin c[cind]:=a[i]; inc(cind);end;
For i:=1 to 30 do begin c[cind]:=b[i]; inc(cind);end;

А вот теперь уже примени сортировку пузырьком к массиву С.

и... Я бы рекомендовал разделить обьявления массивов. а не обьявлять каждый по 500 элементов.

[hohol90]

Что-то я до сих пор не понял, можешь воткнуть в код, а то вообще запутаюсь.

Заранее спасибо.