Question

Решить по теории вероятности обработка одномерных и двумерных массивов сформировать одномерный числовой массив а из 6 элементов и вывести результат резкльтат на экран. подсчитать количество элементов массива значение которых равны нулю и вынесите результат на экран с пояснениями.

Answer 1

Var m : array[1..6] of Integer;
i,k : Byte;
Begin
  k:=0;
  For i:=1 to 6 do
  Begin
   m[i]:=Random(2);
   Write(m[i],' ');
   If m[i]=0 then Inc(k);
  end;
  Writeln;
  Writeln(k);
end.