Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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

end;

end;

Writeln(p);

end.