Определить количество и вычислить сумму элементов одномерного массива N, кратных трем.

Question

Определить количество и вычислить сумму элементов одномерного массива N, кратных трем.

Answer 1

Var a: array[1..1000] of integer; n, i, amount, sum: integer;
begin
     read(n);
     amount := 0;
     sum := 0;
     for i := 1 to n do
     begin
          read(a[i]);
          if a[i] mod 3 = 0
          then
          begin
               sum := sum + a[i];
               amount := amount + 1;
          end;
     end;
     writeln(amount, ' ', sum);
end.