Информатика

Алексейка

10 ноября, 13:42

В чем ошибка?

Const n=20;

Type vector = array[1 ... n] of integer;

Вычислить для вектора x:

Произведение всех положительных элементов массива, которые кратны 17

я сделала так, но все время выдает 0

const

n=6;

Type vector=array[1 ... n] of integer;

var x:vector;

i:integer;

pr:extended;

begin

for i:=1 to n do

begin

readln (x[i]) ;

if x[i] mod 17=0 then

pr:=pr*x[i];

end;

writeln ('proizvedenie = ', pr:4:4) ;

readln;

end.