Составить блок схему и код на Паскале Найти сумму и среднее значение элементов массива А, стоящих на позициях, некратных n (целое число).

Заполнение с клавиатуры:

Var
   A:array[1..5] of integer;
   i,O,P:integer;
Begin
Write('Введите массив A(5): ');
O:=0;
P:=0;
For i:= 1 to 5 do
    Begin
    Read(A[i]);
    if A[i] < 0 then O:=O+1
    else if A[i] > 0 then P:=P+1;
    End;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.

Заполнение случайными числами:

Const
   N = 5;
Var
   A:array[1..N] of integer;
   i,O,P:integer;
Begin
Randomize;
Write('Введите массив A(5):');
O:=0;
P:=0;
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(' ',A[i]);
    if A[i] < 0 then O:=O+1
    else if A[i] > 0 then P:=P+1;
    End;
WriteLn;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.

Цель любой антивирусной программы — обнаружить вирусы на компьютере, если они есть, и устранить возможные опасные последствия. В работе антивирусных программ можно выделить три основные функции:

• обнаружение зараженных объектов;

• дезактивация вирусов;

• восстановление пораженных объектов (« лечение »).

Существует три типа объектов, подверженных заражению компьютерными вирусами:

• носители;

• файлы;

• записи баз данных.

Обнаружение вируса состоит в выявлении зараженного объекта. Решение, что с ним делать, должен принять и выполнить сам пользователь. Демонстрационные и пробные версии антивирусных программ часто работают в режиме «только обнаружение».

Дезактивация вируса состоит в отключении активного вируса и блокировании средств его запуска. При этом возможно «вычищение» вируса из оперативной памяти, корректировка файлов, используемых при загрузке системы, перенос зараженных файлов в отдельный каталог (карантин) для последующего изучения. Последний прием обычно применяется, если вирус обнаружен в момент копирования файла на компьютер. Файл, временно помещенный в специальную папку, не может быть запущен ни случайно, ни автоматически.

При лечении вирус уничтожается и восстанавливается прежнее состояние системы. Это возможно, потому что вирус скрывает свое присутствие и зараженная программа должна работать точно так же, как и незараженная. Поэтому в файле, пораженном вирусом, как правило, остается все, что необходимо для его восстановления.