Это полный пи***, у меня цп загружается на 20-100% при том, что ничего не включено, этот trustedinstaller, system, svchost бесят, я 2 раза сбрасывал компьютер на заводских настроек, поменял термопасту и 0 результата. когда видос на ютубе или любую игру включаю, цп загружается на 100%
CSize1=7;
CSize2=6;
CSize3=5;
type TMas=array[,] of integer;
var
A1:TMas;
A2:TMas;
A3:TMas;
x, y:byte;
procedure zapoln(var T:TMas;Size:integer);
begin
var i,j:integer;
setlength(T,Size+1,Size+1);
for i:=1 to Size do
begin
for j:=1 to Size do
begin
T[i,j]:=random(50);
write(T[i,j]:3);
end;
writeln;
end;
writeln;
end;
function zero(T:TMas):integer;
var i,j,n:integer;
begin
n:=length(T,0)-1;
for i:=1 to n do
for j:=1 to n do
if T[i,j]=0 then result:=result+1;
end;
function interval(T:TMas):integer;
var i,j,n:integer;
begin
n:=length(T,0)-1;
for i:=1 to n do
for j:=1 to n do
if (1<=T[i,j]) and (T[i,j]<=12) then result:=result+1;
end;
begin
zapoln(A1,CSize1);
zapoln(A2,CSize2);
zapoln(A3,CSize3);
x:=zero(A1)+zero(A2)+zero(A3);
y:=interval(A1)+interval(A2)+interval(A3);
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
end.