<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(12);
Writeln('Номер первого отрицательного элемента: ',a.FindIndex(t->t<0)+1);
end.
<u>Пример</u>
36 20 -13 50 14 27 -1 26 -14 -17 -15 42
Номер первого отрицательного элемента: 3
<u>Замечание:</u> Значения всех 12 элементов вводятся с клавиатуры
Имеем 3 позиции
_ _ _
На первую можно поставить любую из данных 4 цифр. На вторую же, так как в записи нового числа цифры могут повторяться, тоже можно поставить 4. На третью=аналогично.
Тогда всего будет 4*4*4=64 чисел
Программа.................................................
3) ответ : 2) 13 тк 1 корневой + 3 первых* 4 вторых
4) ответ: 1,2,3