1樓：網友
vara:array[0..10000] of longint;
i,j,tmp:longint;
beginreadln(n);
for i:= 1 to n do readln(a[i]);
for i:= 1 to n do begintmp:= a[i];
if tmp > 0 then writeln(tmp);
end;end.
用個陣列就行了。
樓上的可以啊。
pascal程式設計：讀入n個數,列印其中的最大數及其位置號
2樓：天ぅ殤
var a:array[1..10000] of integer;
n,max,wz,i:longint;
beginreadln(n);
for i:=1 to n do
beginread(a[i]);
if maxa[2] then f:=1
else f:=0;
ans:=1;
for i:=3 to n do
if f=1 then begin if a[i]>鄭戚a[i-1] then begin inc(ans);f:=0;end;end
else begin if a[i]《喊蠢陵a[i-1] then begin inc(ans);f:=1;end;end;
writeln(ans);
end. 望給分。
turbo pascal程式設計：讀入n個數，列印其中的最大數和最小數及其位置號。急！
3樓：網友
varn,max,min,maxl,minl,i:integer;
s:array [1..1000] of integer;
beginmax:=-maxint;
min:=maxint;
maxl:=1;
minl:=1;
readln(n);
for i:=1 to n do readln(s[i]);
for i:=2 to n do
beginif s[i]>max then
beginmax:=s[i];
maxl:=i;
end;if s[i]begin
min:=s[i];
minl:=i;
end;end;
writeln('max number：',max,' max location：',maxl);
writeln('min number：',min,' min location：',minl);
end.max表示最大值。
maxl表示最大值位置序號。
min表示最小值。
minl表示最小值位置序號。
4樓：陶梓絮
1l正解，2l有點小問題：
varn,max,min,i:integer;
s:array [1..1000] of integer;
beginmax:=1;
min:=1;
readln(n);
for i:=1 to n do readln(s[i]);
for i:=2 to n do
beginif s[i]>s[max] then max:=i;
if s[i]end;
writeln('最大的是：',s[max],' 位置：',max);
writeln('最小的是：',s[min],' 位置：',min);
end.
pascal輸入n，再輸入n個數，求最大值是第幾個數？
5樓：網友
varn,i,max,bj,x:longint;
beginreadln(n);
max:=-maxlongint;bj:=0;
for i:=1 to n do
beginread(x);
if x>max then begin max:=x;bj:=i;
end;writeln(bj);
end.找到最大值並記錄位置即可。
其中最大值max,位置bj。
6樓：網友
比如51 2 3 4 5輸出55
輸出15輸出451 5 4 2 3輸出2
7樓：網友
varn,i,max,t:longint;
beginreadln(n);
max:=-maxlongint;
for i:=1 to n do
beginread(x);
if x>max then begin max:=x; t:=i; end;
end;writeln(t);
end.t用來記錄最大值是第幾個數。
編寫乙個pascal程式，用於列印斐波那契數列的前30000個數 (1秒）
8樓：網友
直接迴圈 設個a=1 b=1 然後不停的b=a+b a=b
9樓：網友
第93個數已經是12200160415121876738
30000個的話要自己寫大數處理程式了。
10樓：網友
樓主 你們學的是這語言嗎？
pascal 輸入1到n個數,輸入最大數
11樓：網友
varl,i,j,t:longint;
a:array[1..1000]of longint;
beginwhile not eoln do
begininc(l);
read(a[l]);
end;for i:=1 to l-1 do
for j:=i+1 to l do
if a[i]writeln(l,' ',a[1]);
end.簡單易行。
不需要輸入n
輸入的var
l,i,j,t,n:longint;
a:array[1..1000]of longint;
beginreadln(n);
while not eoln do
begininc(l);
read(a[l]);
end;for i:=1 to l-1 do
for j:=i+1 to l do
if a[i]writeln(l,' ',a[1]);
end.
pascal n個數的r個數的組合
12樓：網友
const
maxn=10;//n的最大值。
varn,r,tot:longint; //如果n和r的值再大一點的話，你應該考慮用高精。
ans:array[1..maxn] of longint; //記錄每個組合。
procedure dfs(k,p:longint); //k是當前遞迴的層數，p是當前數可以取到的最小值，這裡p是為了防止重複。
var i:longint;
beginif k=r+1 then begin //如果已經找到了r個數，輸出組合方案並退出本層遞迴。
inc(tot); //組合數個數加一。
for i:=1 to r-1 do write(ans[i],' ');
writeln(ans[r]);
exit;end;
for i:=p downto 1 do begin //如果還沒有找到r個數，找乙個可以選的數選擇，並進入下一層遞迴。
ans[k]:=i;
dfs(k+1,i-1); //進入下一層遞迴，為避免重複，下一層不能選擇之前的層選擇過的數。
end;end;
beginreadln(n,r);
dfs(1,n);
writeln('total=',tot);
end.
vb程式設計中怎樣編寫輸入兩個數m和n求大於m的n個
您好，這樣的 dim m as integer,n as integerprivate sub mand1 click m val inputbox 輸入正整數 n val inputbox 輸入正整數 if n m 0 then msgbox 兩數任何乙個數都不能為0 exit sub end i...
Vb程式設計中，怎樣編寫輸入兩個數m和n，求大於m的n個素數的代
private sub command1 click dim i,j,str,n as integera val text1.text b val 1000 n 0 for i a to b swit 1 1為素數 for j 2 to i 1 if i mod j 0 then 其實du不用平方,...
編寫程式,輸入正整數n1n6和n階方陣a中
1 首先，定義8個整型變數。2 接著，定義乙個陣列變數儲存奇數幻方的各數值。3 輸入奇數幻方的階數。4 給陣列賦初值，初始值為0。5 計算第乙個數1的座標，儲存在變數x和y中。6 將第一數字1，儲存在陣列中。7 用for迴圈，實現奇數幻方各值位置的計算。8 執行程式，輸入乙個階數後，電腦就會輸出該階...