Question

Для массива  X(N) вывести на печать элементы, кратные трем и вычислить произведение остальных элементов.

Answer 1

Код в коментах, Делал в тексовике, в паскале не проверял

Answer 2

var
x:array[1..n];
i,o:integer;
begin
for i:= to n do
begin
if (x[i] mod 10)=3 then writeln(x[i]) else o:=o+x[i];
end;
writeln(o);
end.