Если не разделять понятия неотрицательных и положительных, то этот код: Var A,B,C,P,O:integer; Begin P:=0; O:=0; WriteLn('Введи три числа'); ReadLn(A,B,C); if A>=0 then P:=P+1 else O:=O+1; if B>=0 then P:=P+1 else O:=O+1; if C>=0 then P:=P+1 else O:=O+1; WriteLn('Положительных чисел ',P); WriteLn('Отрицательных чисел ',O) End.
Если разделять, то этот: Var A,B,C,P,O,N:integer; Begin P:=0; O:=0; N:=0; WriteLn('Введи три числа'); ReadLn(A,B,C); if A=0 then N:=N+1 else if A>0 then P:=P+1 else O:=O+1;
if B=0 then N:=N+1 else if B>0 then P:=P+1 else O:=O+1;
if C=0 then N:=N+1 else if C>0 then P:=P+1 else O:=O+1; WriteLn('Положительных чисел ',P); WriteLn('Отрицательных чисел ',O); WriteLn('Нулей ',N) End.
Странный вопрос. Минимальное количество тестов - 1, если учитывать что массив будет полностью протестирован. Но если рассматривать, каждое последующие число массива как тест, то столько сколько элементов массива. Минимальное 1 потому что, не указана какая процедура сортировки участвует. Допустим, я создал одномерный массив из 10 элементов. Если мне дана задача на логику (истина, ложь) то тогда мне потребуется протестировать каждый элемент массива, либо же если "тест" понятие глобальное - то один раз, пока не пройдут все элементы или пока логика не будет выполнена. Если же мне дано задание на сравнение (больше или меньше) то мне потребуется по 2 теста на 1 элемент массива (если воспринимать слово тест локально).
"не (х>3)" то же самое, что x <= 3
Получается высказывание: (x < 5) ИЛИ (x <= 3), оно будет истинным при любом x < 5