1. Загрузочные вирусы.
2. Файловые вирусы.
<span>3. файлово-загрузочные вирусы. </span>
<span>4. Сетевые вирусы. </span>
<span>5. Документные вирусы.</span>
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ReadArrReal('Введите компоненты:',n);
Writeln('Минимальный косинус равен ',a.Select(x->cos(x)).Min:0:5)
end.
Const N:=30(любое значение);
var a:array[1....N] of integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
c:=0;
for i:=1 to N do begin
if a[i] mod 3=0 then begin
c:=c+1;
end;
end;
write (c);
end.
Прошу прощения, что грязно написано, но работать должно правильно)