1. Вирусы попадают в компьютер путём открытия файла или открытие ссылки в браузере , когда начала развиваться тема майнинга или же виртуальная крипто валюта, тогда начали создаваться вирусы под названием malware, люди когда оставались на сайте у них система началась перегружаться то есть она начала добывать криптовалюты человеку который создал вредоносный код на сайт (вирус), или же просто люди открывают и файл и по такой-же системе вирус начинает добывать криптовалюты, ну или вирусы удалённого доступа, когда кто-то управляет чужим компьютером через свой же компьютер, мошенники передают файл, человек открывает и потом мошенник начинает управлять компьютером чтобы получить данные, пароли, карты и т.д
2.Вирусы создают люди которые воруют (пытаются заработать) или навредить человеку.
Var A:array[1..NX]of integer; i,N,s,p:integer;
Begin
WriteLn('Введите число элементов массива');Read(N);
p:=1;Randomize;
For i:= 1 to N do Begin
A[i]:= random(25)-10;
if i mod 2 = 0 then begin
s:= s + A[i]; p:=p * A[i];
Write(A[i]:4); End; End;
Writeln;Writeln('Массив Х[',N,']');
For i:= 1 to N do
Write(A[i]:4);
Writeln;Writeln('Сумма S = ', s);
Writeln('Произведение Р = ', P); End.