С клавиатуры вводятся 7 чисел . Найти произведение отрицательных чисел делящихся ** 3 ....

Question

С клавиатуры вводятся 7 чисел . Найти произведение отрицательных чисел делящихся на 3 . помогите срочно надо

Answer 1

Prorgam zadacha;

Const n=7;

 

Var a:array [1..100] of integer;

      i,p:integer;

Begin

p:=1;

For i:=1 to n do begin

Readln(a[i]);

End;

For i:=1 to n do begin

If (a[i]<0) then begin</p>

If (a[i] mod 3=0) then p:=p*a[i];

end;

end;

Writeln(p);

end.

Answer 2

var s,i,k:integer;

begin

s:=1;

for k:=1 to 7 do begin

readln(i);

if (i mod 3=0) and (i<0) then s:=s*i;</p>

end;

writeln(s);

end.