ОП
Олег Писарев
Программирование. ПАСКАЛЬ
Для N целых чисел определить сумму и количество положительных чисел, которые делятся на 6 без остатка.
Для N целых чисел определить сумму и количество положительных чисел, которые делятся на 6 без остатка.
arr.each do |n| if (n % 6 == 0) then begin s = s+n; c = c+1; end; end;
print "Sum: #{ s }\nCount: #{ c }\n"