Цитата trey_tao:
for j:=0 to n do
if (b[i]=a[j]) then
begin
kilk:=b[i];
end; »
|
Смысл этого цикла, если в следующей итерации "старшего" цикла kilk сбросится в ноль?
Цитата trey_tao:
Код:  for i:=0 to ss do
begin
kilk:=0;
for j:=0 to n do
....
end;
»
|
и все будет оцениваться [ if (kilk<>ss) then ] по последнему числу в массиве, что не есть верно.
Весь остальной код явных подозрений не вызывает.
