Составить программу вычисления в массиве a, содержащего n элементов, произведения отрицательных чисел, кратных трем.

Question

Информатика

Тихослава

19 февраля, 21:26

Составить программу вычисления в массиве a, содержащего n элементов, произведения отрицательных чисел, кратных трем.

+1

Ответы (1)

Знаете ответ на вопрос?

Петр · Answer 1

Var n, i, p:longint; a:array[1 ... 1000000] of longint;

begin

readln (n) ;

for i:=1 to n do

read (a[i]) ;

p:=1;

for i:=1 to n do

if (a[i]<0) and (a[i] mod 3 = 0) then p:=p*a[i];

writeln (p) ;

End.