Помогите с переводом кода.

[incl_02]

Ребята, помогите перевести код на С++.
var a:array[1..10,1..10] of real;
n,i,j:integer;
mn,mx:real;
begin
randomize;
repeat
write('Введите размер матрицы от 3 до 10 n=');
readln(n);
until n in [3..10];
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=9*random;
if i+j=2 then
begin
mn:=a[i,j];
mx:=a[i,j];
end
else if(j<=n-i+1)or(j<=i) then
if a[i,j]<mn then mn:=a[i,j]
else if a[i,j]>mx then mx:=a[i,j];
write(a[i,j]:5:2);
end;
writeln;
end;
writeln('Минимальный в области=',mn:0:2);
writeln('Максимальный в области=',mx:0:2);
end.

[digitalis]

Да это же просто; меняешь begin end на {}, writeln на cout - делов то... Попробуй сам, понравится. А что не так - поправят. И про форматирование не забывай, теги [CO DE][/CO DE]. А то читать такую портянку тоскливо.

if i+j=2 then
begin
mn:=a[i,j];
mx:=a[i,j];
end

Эти if в цикле совершенно излиши, до начала цикла надо

mn:=a[0,0];
mx:=a[0,0];

(индексы массива в ++ с 0)

[incl_02]

digitalis,, проблема с строками где if else, незнаю как их по другому записать, не подскажете?

var a:array[1..10,1..10] of real;
n,i,j:integer;
mn,mx:real;
begin
randomize;
repeat
write('Введите размер матрицы от 3 до 10 n=');
readln(n);
until n in [3..10];
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=9*random;
if i+j=2 then
begin
mn:=a[i,j];
mx:=a[i,j];
end
else if(j<=n-i+1)or(j<=i) then
if a[i,j]<mn then mn:=a[i,j]
else if a[i,j]>mx then mx:=a[i,j];
write(a[i,j]:5:2);
end;
writeln;
end;
writeln('Минимальный в области=',mn:0:2);
writeln('Максимальный в области=',mx:0:2);
end.

[digitalis]

Почитать хотя бы по одной страничке описаний Си и Паскаля, можно даже в сети - никак ? Даже попытки не было.
Разница; у Си это в скобках, then не нужен и перед else ;

if a[i,j]<mn then mn:=a[i,j]
else if a[i,j]>mx then mx:=a[i,j];

if (a[i][j]<mn) mn=a[i][j] ;
else if (a[i][j]>mx) mx=a[i][j] ;

В теги текст запупырил - это хорошо. Но для ясности чтения отступы ещё рекомендуются, а не в линейку, как в армии.

for i:=1 to n do
begin
   for j:=1 to n do    a[i,j]:=9*random ;
   ........
end ;

Про то, что

if i+j=2 then
begin
mn:=a[i,j];
mx:=a[i,j];
end

и нахрен совсем не надо - я уже сказал.