Pascal ABC.Net
Variant 1
begin
var sq := SeqGen(100, x -> x * 0);
sq.println;
end.
Variant 2
var a:=ArrFill(100,0);
print(a);
Variant 3
var a:=Arr(0);
for var i:=1 to 100 do
Print(a);