перевод Pascal - C++

[spinogryz_ua]

type mas=array[1..7,1..7] of real;
var matr:^mas;
i,j,k:byte;
s:real;
begin
writeln();
writeln('  Масив:');
s:=0;
k:=0;
randomize;
new(matr);
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
matr^[i,j]:=random-20+random(50);
write(matr^[i,j]:8:2)
end;
writeln
end;
k:=0;
for i:=1 to 7 do
begin
for j:=1 to 7 do begin
if i>j then
if matr^[i,j]<0 then  begin
k:=k+1;
s:=s+matr^[i,j]
end
end
end;
writeln();
writeln('сума отрицательных ел-ов ',s:6:2);
writeln('кол-во отрицательных ел-ов ', k:2)
end.