Напишите программу которая заполняет массив из 10 элементов случайными двоичными данными каждый элемент равен 0 или 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.

pascalabc.net

begin

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

  a.println

end.

v=i*k (объем=глубина цвета * кол-во точек)

i=10, т.к. 1024=2¹⁰ 

k=100*(15*18)=27000 точек

v=10*27000=270000 бит = 33 килобайт (1 килобайт = 8192 бит)

var x,i,x1,x2,x3: integer

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[1]);

  x2: =int(s[2]);

  x3: =int(s[3]);

  if (x1+x3)mod x2=0 then writeln("да")

  else writeln("нет");

end.