const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
Бант-кант-карт-корт-кора-коса
миг-мис-бис-бес-вес-век
<span>Лучше всего, если ты обратишься к конспектам, так как подсиситем множество. Например:
</span><span>подсистема защиты периметра сети
подсистема обеспечения безопасности межсетевых взаимодействий
подсистема мониторинга и аудита безопасности
подсистема обнаружения и предотвращения атак
подсистема резервного копирования и восстановления данных
подсистема анализа защищенности и управления политикой безопасности
подсистема контроля целостности данных
криптографическая подсистема
инфраструктура открытых ключей;подсистема защиты от вредоносного ПО
подсистема фильтрации контента и предотвращения утечки конфиденциальной информации
подсистема установки обновлений ПО
<span>подсистема администрирования безопасности.</span></span>