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

174

347

Посмотреть ответы 2

Ответы на вопрос:

misha081

Информатика

4,6(11 оценок)

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 k< > 0 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 раз