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

Question

Информатика

Тихослава

13 мая, 00:32

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

+3

Ответы (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.