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

1. установить систему антивирусной защиты;

2. своевременно обновлять систему антивирусной защиты;

3. переходить по ссылкам в письмах от неизвестных адресов;

4. проверять все носители (карты памяти, флэшки и т. д.), которые находились за пределами Вашей системы перед использованием;

5. с радостью переходить по ссылкам в письмах о неожиданном наследстве или выигрыше, пришедших от неизвестных адресатов;

6. открывать вложения, полученные от любых адресатов по электронной почте;

7. регулярно проводить полную проверку системы

Буду благодарен​

1.

program z1;

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

i,k:integer;

begin

write ('Введите элементы массива через пробел и нажмите Enter ');

for i:=1 to 10 do read (a[i]);

write ('Массив: ');

for i:=1 to 10 do write (a[i],'  ');

writeln;

write ('Номера элементов больше 5: ');

for i:=1 to 10 do if a[i] > 5 then

begin

write (i,'  ');

k:=k+1

end;

writeln;

writeln ('Элементов больше 5: ',k)

end.

2.

program z2;

var s:string;

begin

readln (s);

while pos('о',s)<>0 do delete(s,pos('о',s),1);

writeln(s)

end.

Объяснение:

Смотри картинки

2. Программа удаляет только строчные русские о

1.

program z1;

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

i,k:integer;

begin

write ('Введите элементы массива через пробел и нажмите Enter ');

for i:=1 to 10 do read (a[i]);

write ('Массив: ');

for i:=1 to 10 do write (a[i],'  ');

writeln;

write ('Номера элементов больше 5: ');

for i:=1 to 10 do if a[i] > 5 then

begin

write (i,'  ');

k:=k+1

end;

writeln;

writeln ('Элементов больше 5: ',k)

end.

2.

program z2;

var s:string;

begin

readln (s);

while pos('о',s)<>0 do delete(s,pos('о',s),1);

writeln(s)

end.

Объяснение:

Смотри картинки

2. Программа удаляет только строчные русские о