28 ноября, 12:23

Массив arr[6] заполнен единицами. Написать программу, которая используя датчик случайных целых чисел, получает на каждом шаге цикла случайное значение индекса массива х и выполняет операцию arr[x]=0. Найти среднее число, при котором все значения элементов массива будут заменены на нули.

0
Ответы (1)
  1. 28 ноября, 12:58
    0
    Var arr:array [1 ... 6] of integer; i, k, x, s, d, j:integer; beginrandomize; d:=0; for j:=1 to 1000 dobeginfor i:=1 to 6 do arr[i]:=1; k:=1; s:=1; while k0 do begin x:=random (6) + 1; arr[x]:=0; if (arr[1]=0) and (arr[2]=0) and (arr[3]=0) and (arr[4]=0) and (arr[5]=0) and (arr[6]=0) then k:=0; s:=s+1; end; d:=d+s; end; Writeln ('В среднем цикл отработал ', d/1000,' раз'); end.

    В среднем цикл отработал 15.946 разПри многократном запуске получается около 16 раз
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Массив arr[6] заполнен единицами. Написать программу, которая используя датчик случайных целых чисел, получает на каждом шаге цикла ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы