Странный вопрос. Минимальное количество тестов - 1, если учитывать что массив будет полностью протестирован. Но если рассматривать, каждое последующие число массива как тест, то столько сколько элементов массива.
Минимальное 1 потому что, не указана какая процедура сортировки участвует. Допустим, я создал одномерный массив из 10 элементов. Если мне дана задача на логику (истина, ложь) то тогда мне потребуется протестировать каждый элемент массива, либо же если "тест" понятие глобальное - то один раз, пока не пройдут все элементы или пока логика не будет выполнена. Если же мне дано задание на сравнение (больше или меньше) то мне потребуется по 2 теста на 1 элемент массива (если воспринимать слово тест локально).
Begin
var a := ArrRandom(7, -10, 10);
a.println();
writeln(a.Where(x -> x mod 2 = 0).Average);
end.
1. Как я понял, нужно перевести 297(10) в ...(2),...(8) и ...(16).
Тогда:
- 10-ная : 297;
- 2-ная : 100101001;
- 8-ная : 451;
- 16-ная : 129.
--------------------------
2.Как я понял нужно показать как перевести 100101001(2-ная) в 8-ная через триады.
Тогда :
100 101 001
1) 100 = 2^2 = 4;
2) 101 = 2^2 + 2^0 = 4 + 1 = 5;
3) 001 = 2^0 = 1;
Тогда 100101001 (2-ная) = 451(8-ная).
--------------------------
3. 16 = 2^4 = 10000(2-ная);
32 = 2^5 = 100000(2-ная);
64 = 2^6 = 1000000(2-ная);
128 = 2^7 = 10000000(2-ная).
Выведем правило : Если мы переводим в двоичную СС числа, являющиеся степенями двойки, то мы ставим везде ноли, но единицу ставим в том разряде двоичного числа, в который мы возвели двойку, чтобы получить 8;16 и т.п....(32 - это 5-ая степень двойки, следовательно мы ставим единицу на 5-ый разряд, а в другие разряды ставим нули : 100000(1 на 5 разряде).
Uses crt;
const n=10;
var a:array[1..n] of integer;
s,i,min,k:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<min then begin min:=a[i]; k:=i; end;
end;
s:=0;
for i:=k+1 to n do
s:=s+a[i];
writeln(s);
end.