Var
n, a, s,i: integer;
begin
s := 0;
read(n);
for i := 1 to n do
begin
read(a);
if(a mod 3 = 0) then s := s + a;
end;
write(s);
end.
VVVVVVVVVVVVVV
Округляем к большему
log2 45 Получаем 5 (бит)
Сзади нужно поднести большой магнит или приклеять
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:array of integer := (0,12,3,-5,-6,4,9,0,8);
var sum:= 0;
for var i := 3 to 7 do
if a[i]>5 then
sum:=sum+a[i];
writeln (sum);
end.
Ответ: 9