Вчем const n=20; type vector= array[1..n] of integer; - вопрос №3714182201 от dimazhulin1609 21.04.2021 04:09

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.

dimazhulin1609 · Answer

Constn=6;Type vector=array[1..n] of integer;var x:vector;i:integer;pr:extended;beginpr:=1;for i:=1 to n dobeginreadln(x[i]);if x[i] mod 17=0 thenpr:=pr*x[i];end;writeln( proizvedenie= ,pr:4:4);readln;end....