Расследование преступления представляет собой информационный процесс​

Никак этож если ядро 32 ух битное то в 64 ёх битную не переделать, только переустановка по другому ни как, конечно можно какие то там файлики поменять чтоб 4 гига видела, но вот адресовать она их просто не сможет

я жэ говорил что видно 4 гб будет а адресовать 32 ух битка не будет 4 гига, она просто этого сделать не сможет, чтобы она это делала тебе придется математику изменить- но это не возможно как и изменения ядра винды какой смысл, если даже видя все 4 гб, 0.8 гига она всёравно использовать не будет

Turbo Pascal
USES CRT;
VAR A:array[1..100] of integer;   
        i,n,summa:integer;

BEGIN
CLRSCR;
Randomize;

  {Проверяем на размер массива, чтобы не превышал 100}
   Repeat   
      Writeln('Введите размер массива до 100');   
      Readln(n);
   Until n<=100;

{Заполняем массив случайными числами от -50 до 100}
   For i:=1 to n do   
      begin     
         A[i]:=-50+Random(100);     
         Write(A[i],'  ');   
      end;

   summa:=0;

{Находим отрицательные элементы массива и складываем}
   For i:=1 to n do   
      if A[i]<0 then summa:=summa+A[i];

   Writeln;
   Writeln('Сумма отрицательных элементов массива  = ',summa);

READLN;
END.