1樓：匿名使用者
program d30_l5;
vara:array[1..4,1..4]of integer;
i,j:integer;
begin
l:=5;
for i:= 1 to 4 do
for j:= 1 to 4+1-i doread(a[i,j]);
for i:= 1 to 4 do
for j:= 1 to 4+1-i dobegin
write(a[i,j],' ');
if j=4+1-i then
writeln;
end;
readln;
end.
2樓：匿名使用者
var a:array[1..4,1..4] of integer;
i,j:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);
for i:=1 to 4 do
begin
for j:=1 to 4 do
if a[i,j]<>0 then
write(a[i,j]);
writeln;
end;
end.
pascal問題，pascal 問題
你錯在寫的程式太長了。program asfl vars string i,j,b longint a array 1.10 of longint begin readln s i 1 j 1 while ibegin inc i if s i then delete s,i,1 end for i...
pascal問題，pascal是什麼？
pascal是什麼？pascal是一個多義詞，所代表的意思分別是 1 pascal指的是結構化程式語言 pascal的名稱是為了紀念十七世紀法國著名哲學家和數學家blaise pascal而來的，它由瑞士niklaus wirth教授於六十年代末設計並創立的。2 pasca指的是壓力的國際標準單位 ...
pascal完全揹包問題（很難，pascal 一個完全揹包問題（很難。。。。。。。。）
這有何難.完全揹包的轉移你會吧?這樣不就簡單了,在轉移完成的dp 1.maxv 陣列中,從maxv到1降序查詢每一個dp i 在第一個dp i dp i 1 的地方退出迴圈,此時i即為所求.這個很簡單 可以類比為普通的揹包 將每個物體的體積看做為每個的價值進行dp 用陣列記錄最後輸出最大值即可 va...