1樓：
問題很多
const maxn=10;
var a:array[1..maxn] of longint;
i,no,n,max:longint;
begin
randomize;
for i:=1 to maxn do
a[i]:=random(maxn);
for i:=1 to maxn do
write(a[i],' ');
max:=a[1];
no:=a[1];
for i:=2 to maxn do
if a[n]>a[1] then begin max:=a[1];no:=i; end;
writeln(max,' ',no);
end.
如果還有問題，＋q
2樓：幸福的小雨
我是學c++的對pascal不算太瞭解,有的地方也能看懂一些,但是我也喜歡看看,我改的程式只供參考
const maxn=10;
var a:array[1..maxn] of longint;
i,n,max:longint;
begin
randomize;
for a:1 to maxn do
a[i]:=random(maxn);
for a:1 to maxn do //應該是for i:1 to maxn do
write(a[i],' ');
//for i:=2 to maxn do if a[i]>a[i-1] then
max:=a[1]; //這裡不對吧 我覺得應該是 max:=a[i];
no:=a[1]; //這句不寫
for a:=2 to maxn do //for n:=2 to maxn do
if a[n]>a[1] then //去掉
max=a[1];no:=i; //if max=a[n] then no:=n:
writeln(max,' ',no);
end.
3樓：
const maxn=10;
var a:array[1..maxn] of longint;
i,n,max:longint;
begin
randomize;
for i:=1 to maxn do
a[i]:=random(maxn);
for i:=1 to maxn do
write(a[i],' ');
max:=a[1];
n:=1;
for i:=maxn downto 2 doif a[n]<=a[i] then begin max=a[i];n:=i;end;
writeln(max,' ',n);
end.
4樓：匿名使用者
怎麼這時候還有人學這個？天啊
幫我看看這個程式錯在哪裡，幫我看看這個C語言程式錯在哪裡了？很簡單的一個程式
你這個 想要得到什麼樣的結果？定義指標必須給它初始化不然就會出現指標異常的錯誤，你如果只想得到 a 10 1000 b 10 100 a 10 10 b 10 這個值的結果沒必要定義指標，直接定義一個long型變數直接接結果就行，ints 0 s a 10 1000 b 10 100 a 10 10...
懂易經的大師麻煩幫我看看這個卦象
賭博賺錢快，還是自己好好做事情賺錢快 本來地澤再堅持一下，下面一爻起來，就是泰卦，多好啊變卦天澤，第3爻變成陽，就是乾卦了，多好 但第3爻是陰的，說明不要與你所謂的兄弟打交道了，他們害了你。 加我463992406幫你解答 易經結果 麻煩 懂的有緣人幫我看看 著急 十分感謝 斷開的枷鎖 不知道你要問...
懂電腦的朋友幫我看看這個配置怎麼樣
合秋白 你這款配置是惠普品牌機，配置還可以。首先是主流i5cpu，16g記憶體，而且還有256g的固態硬碟，這樣電腦速度應該是不錯的。但是你的顯示卡就一般般了，630顯示卡而且才128m。如果是家用，不打遊戲就完全可以，但如果打遊戲那這個顯示卡肯定是不行的！還有一個問題，電腦上只有一塊固態硬碟，顯然...