Паскаль, 10 класс, надозаполните массив случайными числами в интервале [0, 50] и выведите номера всех элементов которые равны наибольшему элементу​

var a: array [1..100] of integer;

var index of integer;

var mmax of   integer;

begin

for i: =1 to do

a[i]: =random(-1)+50; // формула рандома random(b-a+1)+a;

// вывод всех номеров

for i: =1 to do

if(a[i] => mmax):

mmax = a[i];

for i: =1 to do

if(a[i]! =mmax):

index++;

else:

write(index);

могут быть ошибки в коде так как давно на паскале ничего не делал, но алгоритм примерно тот же

ответ: 1)Предотвратить заражение и другие угрозы

Защищать рабочие станции от информационных угроз ( вирусы , хакеры), предотвращать

3) Ноутбуки , смартфоны , планшеты , умный офис

4) Сотрудники не знающие правила информационной безопасности, конкуренты , хакеры , промышленные шпионы, мошенники. 5) Хакеры , вирусы, фишинг , нигерийский письма 6) Обучение сотрудников ( тренинги, лекции) ,объявление награды за предотвращение вирусного заражения , наличие службы информационной безопасности ,системного администратора, наличие защитного решения 7) Антивирус для бизнеса Kaspersky , Dr.Web, Avira,Panda,360 Security ,

В Active Directory локальные учетные записи по умолчанию используются администраторами для управления доменами и рядовыми серверами напрямую и с специализированных рабочих станций администратора. Учетные записи Active Directory предоставляют доступ к сетевым ресурсам. Учетные записи пользователей Active Directory и учетные записи компьютеров могут представлять физическую сущность, например компьютер или пользователя, или выступать в качестве выделенных учетных записей служб для некоторых приложений.