boston1839

Помогите найти ошибку. После выполнения процедуры в конечном массиве выдаёт нули. Не могу понять, почему.
Код Pascal
type Tarray = array[1..500]of integer;
var a, b, c : Tarray;
i,n,m:integer;

procedure Arrays(A : Tarray; B : Tarray; var C : Tarray);
var n,m,i,j,k:integer;
begin
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];
inc (i);
inc (k);
end
else
begin
c[k]:= b[j];
inc (j);
inc (k);
end
end
else if j>m then
begin
c[k]:= a[i];
inc (i);
inc (k);
end
else if i>n then
begin
c[k]:= b[j];
inc (j);
inc (k);
end;
end;
end;

begin
write('Введите размер массива a - ');readln(n);
write('Введите размер массива b - ');readln(m);
writeln('Введите упорядоченный по невозрастанию массив a');
for i:=1 to n do
read(a[i]);
writeln('Введите упорядоченный по невозрастанию массив b');
for i:=1 to m do
read(b[i]);
Arrays(A,B,C);
writeln('Массив с');
for i:=1 to m+n do
write(c[i],' ');
end.

Vladimir_S

А потому что m и n у Вас глобальные переменные. А Вы их повторно описываете в процедуре. В Паскале это означает, что, войдя в процедуру, программа "забывает" об их глобальных значениях и рассматривает, как локальные (действующие только внутри процедуры) и при этом по умолчанию обнуляет. Вывод: убрать из списка параметров процедуры m и n.

boston1839

Спасибо огромное