Question

Заполнить массив из 15 элементов 0 и 1 при помощи генератора случайных чисел. Определить количество нулей и единиц в массиве

Answer 1

Var 
  i, n, e: integer;
  k: array[1..15]of integer;
begin  
for i := 1 to 15 do
    begin
    k[i] := random(2);
    write(k[i],' ');
    if k[i]=0 then n:=n+1
      else e:=e+1;
    end;
writeln;  
writeln('Нулей: ',n,'; единиц: ',e)
end.