求教pascal编程数塔问题
数塔pascal?？
var a:Array[1..50,1..50,1..3]of longint;i,j,n:longint;begin readln(n);for i:=1 to n do for j:=1 to i do begin read(a[i,j,1]);a[i,j,2]:=a[i,j,1];a[i,j,3]:=0;end;for i:=n-1 downto 1 do for j:=1 to i do if a[i+1,j,2]>a[i+1是什么🎄😦--🏆。
var a:Array[1..50,1..50,1..3]of longint;i,j,n:longint;begin readln(n);for i:=1 to n do for j:=1 to i do begin read(a[i,j,1]);a[i,j,2]:=a[i,j,1];a[i,j,3]:=0;end;for i:=n-1 downto 1 do for j:=1 to i do if a[i+1,j,2]>a[i+1是什么🎄😦--🏆。
