Есть несколько категории вирусов:
Массовые -- распространяются в видах: кликбейт рекламы (делает все возможное чтобы заставить пользователя кликнуть), фишинговые письма (поддельные, обычно от соц. сетей с перейти по ссылке). Их цели довольно разные: начиная от показа рекламы, и заканчивая шифрованием всех файлов пользователя прося выкуп за ключНацеленные на компанию -- их задача проникнуть в инфраструктуру определенной компании. Будто банк или офис конкурентов.Нацеленные на конкретного человека -- их задача получить доступ к компьютеру определенного человека. Например если у него есть исходные коды какой-то важной программы.Program zadacha;
const n=10;
var
a:array [1..n] of integer;
i,min,max,sum:integer;
begin
writeln('Введите элементы:');
for i := 1 to n do read(a[i]);;
max:=-10000; min:=10000;
for i:=i to n do
if (a[i]>max) then max := a[i];
writeln('Максимальное число в массиве: ',max);
for i:=1 to n do
if (a[i]<min) then min:=a[i];
writeln('Минимальное число в массиве: ',min);
for i := 1 to n do sum:=sum+a[i];
writeln('Сумма всех чисел массива = ',sum);
End.
Объяснение:
min ставим наибольшим, чтобы оно постепенно уменьшалось в сравнении. max ставим от наименьшего, чтобы оно увеличивалось в сравнении.
При суммировании необязательно обнулять переменную (в данном случае sum), т.к. у нас немного действий.