Не могу найти ошибку! ошибка вида: "ошибка времени выполнения: индекс находился вне границ массива." 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.
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;
j = 0 , массив описан как array[1..n]
кроме того, массив b изначально не задан, поэтому будет еще и деление на ноль.