1теробайт так как 1 кл. 1 мб 1гб и 1тр. Из этого выходит то что в 1тр 1000гб
// PascalABC.NET 3.3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2
В данном массиве находится 4 элемента
1)2
2)-2
3)-2
4)2