Задачка на Turbopascal

[kimon]

:huh: Хоть убивайте меня, но что-то не то... Элементами массива b не хочет заполняться...

Вот привожу полный код программы, посмотрите пожалуйста, может я до этого где-то накосячил:

Program massiv;
uses crt;
var 
a:array[1..100] of integer;
b:array[1..100] of integer;
c:array[1..200] of integer;
I,G,H,n,m:integer;

begin
randomize;
clrscr;

writeln('Введите размер первого массива');
readln(n);
for I:=1 to n do
a[I]:=random(100);
for I:=1 to n do
writeln(a[I]);

writeln('Введите размер второго массива:');
readln(m);
for G:=1 to m do
b[G]:=random(100);
for G:=1 to m do
writeln(b[G]);

writeln('Третий массив:');
for H:=1 to n do
begin
c[H]:=a[H];
writeln(c[H]);
end;
for H:=n to n+m do
begin
c[H]:=b[H];
writeln(c[H]);
end;

Repeat Until Keypressed;
end.

Причем надо учитывать что с новым массивом еще придется работать, т.е. сортировать.

 

[grigsoft]

Детский сад прям :huh:
Не забываем, что границы массива В - от 1 до м. А ты к нему обращаешься от n до n+m. Так что лучше так:

 for H:=1 to m do
begin
c[n+H]:=b[H];
writeln(c[n+H]);
end;

 

[~RedFox~]

Точняк, это я спросонья ступил:
<!--QuoteBegin-~RedFox~+25:03:2007, 11:38 -->
<span class="vbquote">(~RedFox~ @ 25:03:2007, 11:38 )</span><!--QuoteEBegin-->

for i:=1 to n do
c[i]:=a[i];
for i:=1+n to m+n do
c[i]:=b[i];

[snapback]60063" rel="nofollow" target="_blank[/snapback]​

[/quote]

Правильно будет так:

for i:=1 to n do
c[i]:=a[i];
for i:=1 to m do
c[i+n]:=b[i];

 

[kimon]

Спасибо, щас вроде похоже на правду. Только вот сразу вопросик, а как теперь с эти массивом работать? Всмысле как мне к нему обратиться чтобы отсортировать?