<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-99,99); a.Println;
Writeln('Минимальный из нечетных элементов массива равен ',
a.Where((x,i)->i.IsEven).Min);
Writeln('Сумма после первого минимального элемента равна ',
a.Where((x,i)->i>a.IndexMin).Sum);
Writeln('Произведение после первого минимального элемента равно ',
a.Where((x,i)->(i>a.IndexMin) and (x<>0)).Aggregate(1,(x,y)->x*y));
end.
<u>Пример</u>
10 2 34 -69 -14 -13 61 77 -59 99
Минимальный из нечетных элементов массива равен -59
Сумма после первого минимального элемента равна 151
Произведение после первого минимального элемента равно -698234918
Формула для решения подобных задач:
N=2^j
N=2^4
N=16
F=((X*Y)*¬¬X))*(¬(X*Y)*¬¬X)
F=X*Y*X * (¬X+¬Y)*X
F=X*Y*(¬X+¬Y)
F=X*Y*¬X+X*Y*¬Y
F=0
1)754=1EC
2)0,141=
<span>0.03230303030303030303030303030303030303030303030<span>303
</span>3)126,33=</span>
11200.02222012010111202210022220120101112022100222201201
<span>Kaspersky Antivirus, Norton AntiVirus, Doctor Web.
</span><span>Своевременное обнаружение зараженных вирусами файлов и дисков, полное уничтожение обнаруженных вирусов на каждом компьютере позволяют избежать распространения вирусной эпидемии на другие компьютеры.
</span>Для обнаружения, удаления и защиты от компьютерных вирусов разработано несколько видов специальных программ, которые позволяют обнаруживать и уничтожать вирусы. Такие программы называются антивирусными<span>. Различают следующие виды </span><span>антивирусных программ</span>
