Const a: array [1..5] of integer = ( 2, 3, -6, 4, 3). Заполните таблицу по образцу и определите значение a [a[5]].
вопрос только в определении значения, оно будет равно 3?

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

З.Ы.

Немного не корректно составлены варианты ответа. Точнее, троянец там явно лишний. Потому как троян - семейство вредоносного ПО, представители которого для заражения ПК использует одну и ту же тактику - замаскировать себя под легальную программу, что бы пользователь не долго думая запустил её. И троянцы бывают и майнерами, и шифровальщиками, и вымогателями (два последних кстати тоже почти одно и то же).

// PascalABC.Net

const n = 10;

begin

   var a:= ArrGen(n, i -> chrAnsi(random(33, 127))).Println(', ');

   var c:= ReadChar('Введите символ: ');

   a.Where(e -> e = c).Count().PrintLn();

end.

// Turbo Pascal

const n = 100;

var a: array [1..n] of char;

i, count: integer;

c: char;

begin

randomize;

   for i := 1 to n do

   begin

       // Не могу сохранить ответ, ругается на функцию chr, поэтому замените в следующей строке символы abc на chr

       a[i] := abc(random(127 - 33 + 1) + 33);

       write(a[i], ' ');

   end;

   writeln();

   write('Введите символ: ');

   readln(c);

   count := 0;

   for i := 1 to n do

   begin

       if a[i] = c then

           inc(count);

   end;

   write('Количество: ', count);

end.