1. Реакция компьютера на обыденные действия отличается от обычной, например, вместо открытия корневой папки флешки открывается папка, которая содержит ссылку на флешку (реальная история - доводилось повидать вирус, который создает на флешке ссылку на саму себя). 2. Возникают различные сообщения об ошибках, которых раньше не было и которым нет явной причины. 3. Вся система блокируется с сообщением вроде "отправьте СМС на такой-то номер и введите полученный код в течение 24 часов, или система будет стерта".
Программа вставляет перед элементом, кратным 5, элемент со значением 99 (чтобы его было видно среди прочих из диапазона [1..50] )
const nm = 20;
var i, j, n, nn: integer; a: array[1..nm] of integer;
begin n := nm div 2; nn := n; Randomize; Writeln('*** Исходный массив ***'); for i := 1 to n do begin a[i] := Random(50) + 1; { [1..50] } Write(a[i]:3) end; for i := n downto 1 do begin if a[i] mod 5 = 0 then begin nn := nn + 1; for j := nn downto i do a[j] := a[j - 1]; a[i] := 99 end end; Writeln(#13#10, '*** Массив-результат ***'); for i := 1 to nn do Write(a[i]:3); Writeln end.
2. Возникают различные сообщения об ошибках, которых раньше не было и которым нет явной причины.
3. Вся система блокируется с сообщением вроде "отправьте СМС на такой-то номер и введите полученный код в течение 24 часов, или система будет стерта".