<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 элементов вводятся с клавиатуры
Программы,интерфейсы и гл.меню
Поле ввода
поле вывода
поле для рисунка/таблицы
i=6
v=i*k
v=6*2048=12288 бит=1536 байт=1,5 кбайт
Ответ: 1.5кбайт
<span><span><span> 1
</span><span>
1
2
</span><span>
2
4
</span><span>
3
8
</span><span>
4
16
</span><span>
5
32
</span><span>
6
64
</span><span>
7
128
</span><span>
8
256
</span><span>
9
512
</span><span>
10
1024
</span></span></span>