В программу внесено 24 искусственных ошибки. В процеесе тестирования они были обнаружены, а также были обнаружены 6 естественных ошибок. Согласно модели Миллса определить меру доверия к данной модели тестирования

PascalABC.NET 3.4.2, сборка 1933 от 01.04.2019

begin

 var (a, b) := ReadInteger2;  // Считывание a и b

 var simple := ArrFill(b + 1, true);  // Инициализация булевого массива значением true.

// Реализация решета Ератосфена

 for var i := 2 to b do

   if simple[i] then  

   begin

     var j := i * i;

     while (j <= b) do

     begin

       simple[j] := false;

       j += i;

     end;

   end;

 // Вывод на экран найденного результата

 for var i := a to b do

   if (simple[i]) and (i > 1) then i.Print

end.

1. Создается массив из целых, массив статический на 30 элементов.
2. В цикле со счетчиком (for) заполняется массив с клавиатуры, вводятся 30 значений.
3. Еще раз в цикле просматриваются все элементы массива и сравниваются с 20. Если больше 20, то увеличивается значение переменной x на  1 и к значению перменной y прибавляют значение этого элемента массива.
4. После окончания цикла вычисляется выводится отношение s:=x/y.

Небольшое дополнение, если элементов массива больших 20 не будет, то возникнет переполнение из-за деления на 0