Помогите решить ошибку в Pascal.Проблема в последующем: Надобно посчитать ненулевые элементы

Помогите решить ошибку в Pascal.
Проблема в следующем: Надобно посчитать ненулевые элементы массива, которые я задаю рандомно. Считает правильно, но не берёт условие if (ilt;gt;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 (ilt;gt;0) then z:=z*range[i];
writeln;
writeln('Произведение ненулевых частей: ',z);
end.

Олег Капенус 2019-08-23 12:46:54

Чего бы оно брало во внимание i<>0, когда Вы с единицы начинаете цикл?

Виталик 2019-08-23 12:50:25

А еще забавно, что Вы желаете считать ненулевые элементы массива, а заместо этого указываете нулевой индекс ))

Валерий Кирейлис 2019-08-23 12:52:21

if (range[i]<>0) then z:=z*range[i];

Борька Вежковец 2019-08-23 13:00:05

Спасибо, сообразил в чём была ошибка)

Ангелина Давывдова 2019-08-23 13:09:11

Пожалуйста