PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var (k, p, n) := (0, int64(1), ReadInteger('n ='));
var t: integer;
for var i := 1 to n do
begin
Read(t);
if t mod 3 = 0 then
begin
p *= t;
Inc(k)
end
end;
Write('Произведение ', k, ' элементов равно ', p)
end.
Пример
n = 7
53 -28 36 174 -600 45 -93
Произведение 5 элементов равно 15728904000