Question

How to fill an array with 1 and 0 in random locations with Pascal

Answer 1

program FillArrayWithRandom1and0Program;

uses
  SysUtils;

procedure FillArrayWithRandom1and0(var array_: array of Integer);
var
  i: Integer;
begin
  Randomize;
  for i := 0 to Length(array_) - 1 do
  begin
    array_[i] := Random(2); // Generates either 0 or 1
  end;
end;

var
  array_: array of Integer;
  i, size: Integer;
begin
  size := 10; // You can change the size of the array
  SetLength(array_, size);
  
  FillArrayWithRandom1and0(array_);

  // Print the array
  for i := 0 to Length(array_) - 1 do
  begin
    Write(array_[i], ' ');
  end;
  WriteLn;
end.




(*
run:

0 1 0 1 1 0 0 0 0 1 

*)

 

70+ SQL courses for beginners and professionals