Помогите пожалуйста, я пробовал решать но вылазит ошибка стек переполнен и не знаю как её исправить.
program eight;
var
a,b:array[1..20] of integer;
k,m,max,n,i,z:integer;
procedure massiv(m,k,max:integer);
begin
max:=a[1];
a[i]:=max;
m:=k-max;
max:=b[z];
end;
procedure reshenie(k,m,n:integer);
begin
for i:=1 to n do
if (k=a[i]) then inc(k);
if (a[i]<k) and (a[i]<>b[z]) then
massiv(m,k,max);
if (m=0) then inc(k);
if (m>k) and (a[i]<>b[z]) and (m<>0) then
writeln('nesostavimoe 4islo',k) else
reshenie(m,m,n);
end;
begin
writeln('ukazite dliny massiva');
readln(n);
writeln('Vvedite naturalnie 4isla');
for i:=1 to n do
readln(a[i]);
b[z]:=0;
for k:=1 to 100 do
for i:=1 to n do
reshenie(k,m,n);
readln;
end.
| М | Про теги не надо забывать... мисс_граффити |