Question

В чем ошибка??? 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.

Answer 1

Const
n=6;
Type vector=array[1..n] of integer;
var x:vector;
i:integer;
pr:extended;
begin
pr:=1;
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.