Question

:ошибка времени выполнения: индекс находился вне границ массива. (не могу найти ошибку) const n=5; var a,b: array[1..n] of integer; i,j: byte; begin for i: =1 to n do begin write('введите ',i,'-ый(ой) эелемент массива = '); readln(a[i]); end; writeln; writeln(' массив "а"'); for i: =1 to n do write(' |',a[i],'|'); writeln; j: =0; for i : = 1 to n do begin if (b[j]> 0) and (b[j] mod b[j]=0) and (b[j] mod 1 =b[j]) then begin inc(j); b[j] : = a[i]; end; end; writeln; writeln(' массив "b"'); for i : = 1 to j do write(' |',a[i],'|'); writeln; end.

Answer 1

Обратите внимание на циклfor i:=n downto p do // вставка p   for j:=1 to n+1 do     c[i+1,j]:=c[i,j];У Вас массив с описан как c:array[1..n,1..n+1] of integer;В то же время, первый индекс у Вас в цикле меняется от  n+1 до p+1 (n+1 выходит за границу), а второй - от 1 до n+1 (это допустимо)