Заполнить массив случайными числами в интервале [-1,1] и подсчитать количество нулевых...

Question

Заполнить массив случайными числами в интервале [-1,1] и подсчитать количество нулевых элементов

Comments

varr,i,a:integer;m:array[1..10];beginfor i:=1 to length(m) do beginrandomize;r:=random(2)-1;m[i]:=r;end;for i:=1 to length(m) dobeginif m[i]=0 then a:=a+1;end;writeln(a);end.

Answer 1

Var
  i,a:integer;
  m:array[1..10] of integer;
begin
  randomize;
  for i:=1 to 10 do
  begin
    m[i]:=random(2)-1;
    if m[i]=0 then a:=a+1;
  end;
 
  writeln(a);
end.