заполнение матрицы Опции

[Insomnia]

7 6 5 4 3 2 1
6 5 4 3 2 1 2
5 4 3 2 1 2 3
4 3 2 1 2 3 4
3 2 1 2 3 4 5
2 1 2 3 4 5 6
1 2 3 4 5 6 7
как заполнить матрицу размером n*n таким образом?
---
подскажите , от чего мне надо отталкиваться? побочную диагональ я могу заполнить еденицами, а как мне симметрично относительно их, заполнить последующими числами?!

[Freedom]

 
for i:=1 to n do  
  for j:=1 to n do    
Write(a[i,j]:3);

Write(a[i,j]:3); - тут не правильно, у вас массив типа integer, а не real поэтому write(a[i,j]);
и ещё лучше выводить
таким образом

 For i:=1 to n do begin
  for j:=1 to n do  Write(a[i,j],' ');
 writeln;
 end;

Сообщение отредактировано: Freedom - 27.12.2010 20:11