Помогите перевести на С++

[KrokaKrola]

uses crt;
type matr=array[1..50,1..50] of real;
procedure Vvod(var x:byte;var m:matr);
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to x do
m[i,j]:=random*10;
end;
procedure Vyvod(x:byte;var m:matr);
var i,j:byte;
begin
writeln('Ishodnaya matrica:');
for i:=1 to x do
  begin
    for j:=1 to x do
    if ((i>=j)and(i<=x-j+1)) then
      begin
       textcolor(12);
       write(m[i,j]:5:1);
      end
    else
      begin
       textcolor(15);
       write(m[i,j]:5:1);
      end;
    writeln;
  end;
end;
var a:matr;
    n,i,j:byte;
    s:real;
begin
clrscr;
randomize;
write('Razmer matricy n=');
readln(n);
Vvod(n,a);
Vyvod(n,a);
s:=0;
for i:=1 to n do
for j:=1 to n do
if ((i>=j)and(i<=n-j+1)) then
s:=s+a[i,j];
write('Summa=',s:0:1);
readln
end.

[min@y™]

void Vvod(const unsigned char x, float** m)
{
  for (unsigned char i = 0; i != x; i++)
    for (unsigned char j = 0;j != x; j++)
      m[i, j] = rand() % 10;
}

пост сдалЪ !!!

[Stilet]

А текст задачи узнать можно?

[KrokaKrola]

Сообщение от Stilet

А текст задачи узнать можно?

Вычислить сумму элементов матрицы в заштрихованной области. Ввод и вывод матрицы оформить в виде процедур.

[Stilet]

http://www.programmersforum.ru/showthread.php?t=276276

[Вадим Мошев]

Вот я и говорю, где-то видел уже это