Question

напишите программу которая заполняет массив из 10 элементов случайными двоичными данными каждый элемент равен 0 или 1 и выводит его на экран

Answer 1

Ответ:

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.

Answer 2

===== PascalABC.NET =====

begin

 var a := ArrRandom(10, 0, 1);

 a.Println

end.