Перевести на С++ (Pascal)

[spinogryz_ua]

type mas=array[1..7,1..7] of real;
var matr:^mas;
i,j,k:byte;
s:real;
begin
writeln('Лабораторна робота №1');
writeln('з дисціплини АСД');
writeln('студента групи ПЗ-114');
writeln('Пухлого Аркадія');
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.

[spinogryz_ua]

Обидно господа...

[raxp]

...нам тоже, даже "пожалуйста" не было.

[spinogryz_ua]

Согласен, с моей стороны бок. Исправлюсь.

[spinogryz_ua]

Вот до чего додумался я.
дальше никак не пойму, помогите пожалуйста.

#include<iostream.h>
#include<conio.h>
#include<stdlib.h>
#include<stdio.h>
#include<time.h>

int main(){
srand((unsigned)time(NULL));
float i,j,k,s;
double *p;
p=new double[49];
for(i=0;i<7;i++)
	{cout<<endl;
	for(j=0;j<7;j++)
		{*(p+i*7+j)=rand()%(1000)/100-5;
		printf("%7.2f",*(p+i*7+j));
}}
cout<<endl<<endl;
k=0;
for(i=0;i<7;i++){
	for(j=0;i<7;i++){
		if (i>j) 
		*(p+i*7+j)<0 k++;
		s=s+(*(p+i*7+j));
		

delete[]p;
return 0;
}