Ответ: 4) <span>количество нулевых элементов - значение переменной К увеличивается на 1 каждый раз, когда встречается Хi=0
</span>
Антивірусне програмне забезпечення зазвичай використовує два різних методи для виконання своїх задач.Наприклад:Перегляд (сканування) файлів для пошуку відомих вірусів, що відповідають визначенню в словнику вірусів та знаходження підозрілої поведінки будь-якої з програм, що схожа на поведінку зараженої програми.При цьому методі антивірусна програма під час перегляду файлу звертається до словника з відомими вірусами, що складений авторами програми-антивірусу.У разі відповідності якоїсь ділянки коду програми, що проглядається, відомому коду (сигнатурі) вірусу в словнику, програма-антивірус може виконувати одну з наступних дій.<span>Хоча антивірусні програми створені на основі пошуку відповідності визначенню вірусу в словнику, за звичайних обставин, вони можуть досить ефективно перешкоджати збільшенню випадків зараження комп'ютерів, автори вірусів намагаються триматися на півкроку попереду таких програм-антивірусів, створюючи «олігоморфні», «поліморфні» і, найновіші, «метаморфічні» віруси, у яких деякі частини шифруються або спотворюються так, щоб неможливо було знайти спільне з визначенням в словнику вірусів.</span>
const n=8;
var i,j,v,max,k:integer;
a:array [1..n] of integer = (0,1,9,2,4,3,6,5);
begin
write (' Исходный массив: ');
for i:=1 to n do write(a[i],' ');
writeln;
for i:=1 to n-1 do
begin
max:=i;
for j:=i+1 to n do
if a[j] > a[max] then max:=j;
v:=a[i];
a[i]:=a[max];
a[max]:=v
end;
write ('Преобразованный массив: ');
for i:=1 to n do write(a[i],' ');
end.
<span> 110101000
- 11101
-----------------
</span> 110001011
<span> 1001011101
- 101111
------------------
1000101110
</span>
Var
C,N:array[1..10] of integer;
A,i,j,m:integer;
Begin
WriteLn('Введите десять целых чисел');
j:=0;
m:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A mod 2 = 0 then
Begin
j:=j+1;
C[j]:=A;
End
else
Begin
m:=m+1;
N[m]:=A;
End
End;
Write('Массив чётных чисел: ');
For j:= 1 to j do
Write(C[j],' ');
WriteLn;
Write('Массив нечётных чисел: ');
For m:= 1 to m do
Write(N[m],' ');
End.
