Помогите решить ошибку в Pascal. Проблема в следующем: Надо посчитать ненулевые элементы массива, которые я задаю рандомно. Считает верно, но не берёт условие if (i<>0) во внимание. Просьба программу не переписывать под себя, просто исправить на то, как это должно выглядеть. program x; const n=7; var range: array[1..n] of integer; i,z: integer; begin z:=1; for i:=1 to n do range[i]:=random(6)-2; for i:=1 to n do write (range[i]:3); for i:=1 to n do if (i<>0) then z:=z*range[i]; writeln; writeln('Произведение ненулевых элементов: ',z); end.
