Nhờ giúp đỡ về thuật toán có liên quan đến mà trận

[anh2604]

hình như tâm trạng bạn hok được tốt nên đọc câu ý hok được hay, sorry, hãy đọc cấu đó với giọng điệu hài hước bạn nhé!

[ducspkt18]

mình có một bài tập suy nghĩ mãi không ra mong các anh chị trên diễn đàn giúp đỡ
đề bài như sau: Xây dựng chuơng trình nhập vào một dãy ma trận cùng cấp n,sau đó tính tổng các ma trận đó

[taimuinuong]

Mình được rao một bài tập mà nghĩ mãi không ra, mong các bạn giúp đỡ
Đề bài: Nhập vào một số n (n là kích thước của một ma trận vuông) và nhập các phần tử cho ma trận đó. Hãy xây dựng thuật toán để in ma trận ra màn hình với điều kiện mà trận in ra phải là ma trận hình xoáy chôn ốc
Ví dụ về ma trận xoáy trôn ốc

 1      2     3     4
12     13     14    5
11     16     15    6
10      9     8     7

Mong các bạn giúp đỡ
Thanks!!!!!!!!!!!!!!!!

{xoan octheo chieu kim dong ho voi n hang, m cot}
Var A:Array[1..50,1..50] of integer;
i,j,k,n,m:integer;
BEGIN
Write('Nhap so hang va so cot :');Readln(n,m);
k:=0; i:=1;
Repeat
For j:=i to m+1-i do begin inc(k);A[i,j]:=k;end; {sang phai}
if k=n*m then Break;
For i:=m+2-j to n-m+j do begin inc(k);A[i,j]:=k;end; {di xuong}
if k=n*m then Break;
For j:=i+m-n-1 downto n+1-i do begin inc(k);A[i,j]:=k;end; {sang trai}
if k=n*m then Break;
For i:=n -j downto j+1 do begin inc(k);A[i,j]:=k;end; {di len}
if k=n*m then Break;
Until k=n*m;

{---Viet ra mang A---}
For i:=1 to n do
Begin
for j:=1 to m do Write(A[i,j]:3);
Writeln;
end;
END.
══════ 10:1 ═════◄■▒▒▒▒▒▒▒▒▒� �▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒� ��▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒►─