// 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.
Т.к в рассматриваемой ситуации очень сильно нагружен ЦП, а грузящие его процессы имеют странные имена, вероятнее всего мы имеем дело с майнером.
З.Ы.
Немного не корректно составлены варианты ответа. Точнее, троянец там явно лишний. Потому как троян - семейство вредоносного ПО, представители которого для заражения ПК использует одну и ту же тактику - замаскировать себя под легальную программу, что бы пользователь не долго думая запустил её. И троянцы бывают и майнерами, и шифровальщиками, и вымогателями (два последних кстати тоже почти одно и то же).
