из Pascal на С++

[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.

[Sciv]

Оригинально - сначала писать на паскакале, а потом на си переводить

[p51x]

просто на паскале проще найти код учебных задачек

[spinogryz_ua]

Просто мне нужна программа на С++ а поскольку я болеемение знаю Pascal я решил что будет проще сделать это на паскале и попросить здесь что бы перевели в С++. А вы все, так реагируете кагбуд то я выложил условие и написал "Решить немебдленно!". Обидно товарищи... Обидно.