Задача на паскале. Матрица

[dima-baris]

Задача на паскале. Матрица

Спасибо биг заранее!!
Задача: сформировать матрицу порядка n по заданному образцу!

 

[Vladimir_S]

Спасибо биг заранее!!
Задача: сформировать матрицу порядка n по заданному образцу!

Только в порядке исключения. Вообще-то мы подобной рутинной ерундой, как правило, не занимаемся.

uses crt;
const
 n=10;
var
 i,j:integer;
 a:array [1..n,1..n] of integer;
begin
 clrscr;
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=0;
 for i:=1 to n do
  begin
   a[i,i]:=i;
   a[n-i+1,i]:=i;
  end;
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:4);
   writeln;
  end;
 writeln;
 readln;
end.