pascal
var
ar:array[1..100,1..100] of integer;
a,b,i,j,t,n,s:integer;
begin
read(a,b); readln;
for i:=1 to a do
for j:=1 to b do
read(ar[i,j]);
for j:=1 to b do
begin
for i:=a downto 1 do
write(ar[i,j],' '); writeln;
end;
end.
ar:array[1..100,1..100] of integer;
a,b,i,j,t,n,s:integer;
begin
read(a,b); readln;
for i:=1 to a do
for j:=1 to b do
read(ar[i,j]);
for j:=1 to b do
begin
for i:=a downto 1 do
write(ar[i,j],' '); writeln;
end;
end.
上一篇:sundog sky (幻日)
下一篇:说唱中国红
声明:以上文章均为用户自行添加,仅供打字交流使用,不代表本站观点,本站不承担任何法律责任,特此声明!如果有侵犯到您的权利,请及时联系我们删除。
文章热度:★☆☆☆☆
文章难度:★★★★☆
文章质量:☆☆☆☆☆
说明:系统根据文章的热度、难度、质量自动认证,已认证的文章将参与打字排名!
本文打字排名TOP20
登录后可见