var a:array [1..10] of integer;
i:integer;
begin
write ('Массив ');
for i:=1 to 10 do
a[i]:=random(2);
write(a[i]:3)
end
end.
===== PascalABC.NET =====
var a := ArrRandom(10, 0, 1);
a.Println
var a:array [1..10] of integer;
i:integer;
begin
write ('Массив ');
for i:=1 to 10 do
begin
a[i]:=random(2);
write(a[i]:3)
end
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(10, 0, 1);
a.Println
end.