можете перевести с паскаля в с++?uses crt;const nmax=100;var b:array[1. . nmax] of integer;n,i,j:byte;s,mx:integer;beginclrscr;randomize;repeatwrite('Размер массива до ',nmax,' n=');readln(n);mx:=-maxint-1;until n in [1. . nmax];writeln('Массив:');for i:=1 to n dobeginb[i]:=random(10);write(b[i]:3);if b[i]>mx then mx:=b[i];end;writeln;writeln('Максимальный элемент=',mx);writeln;writeln('Замена максимальных суммой предыдущих элементов:');for i:=1 to n dobeginif b[i]=mx thenbeginif i=1 then b[i]:=0elsebegins:=0;for j:=1 to i-1 dos:=s+b[j];b[i]:=s;end;end;write(b[i]:3);end;readlnend.