6 lines
155 B
ObjectPascal
6 lines
155 B
ObjectPascal
// Стандартный метод последовательности CountOf
|
|
begin
|
|
var a := Arr(1,3,5,7,1,2,1,3,1,5);
|
|
a.CountOf(1).Print;
|
|
end.
|