<span>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;
j = 0 , массив описан как array[1..n]
кроме того, массив b изначально не задан, поэтому будет еще и деление на ноль.
</span>
Чтение , так как читаешь усваиваешь информацию , создание , ты берёшь другие знания , чтобы создать что то новое
Вызовите команду Изображение -> Разрешение печати.