用turbo pascal程式設計列印輸入的n個整數中的最大 最小數及其序號

2022-03-04 23:06:29 字數 965 閱讀 9037

1樓:白黑積雨雲

var a,i,n,max,min,maxno,minno:longint;

begin

while not eof do

begin

readln(n);

max:=-1;

min:=maxlongint;

for i:=1 to n do begin

read(a);

if a>max then begin max:=a; maxno:=i; end;

if a

end;

writeln('max=',max,' place=',maxno);

writeln('min=',min,' place=',minno);

end;

end.

2樓:匿名使用者

vari,j,m,n,max,min,t1,t2:longint; \\t1,t2分別記載最大最小的時候的序號

begin

max:=0-maxlongint;min:=maxlongint; \\設最大數為longint的最小值,最小數為longint最大值

readln(n);

for i:=1 to n do

begin

read(m);

if m>max then begin max:=m;t1:=i;end; \\讀入的數比max還要大,就讓max變為讀入的數,並用t1記錄最大數的序號

if m

end;

writeln(max,' ',t1); \\輸出

writeln(min,' ',t2);

end.

沒執行過,如果有語法錯誤自己改一下吧,還有問題就追問吧

用python程式設計求1 ,用python程式設計求1 1 2 1 3 1 4 1 5 累加和,資料項小於0 1時停止

樹不開叉 def summa summ 0 for i in range 1,100 fl 1.0 i if fl 0.1 summ fl else print the sum is summreturn sum summa 注意縮排 def iteritem limit x 1.while 1 v...

程式設計用什麼軟體,程式設計用什麼軟體 200

cfree5小,而且支援多,網上弄個序列號就行 介紹一下c語言的程式設計軟體 程式設計軟體有哪些 實用資源分享家 電腦上必備的軟體有哪些? 介紹一下c語言的程式設計軟體 電腦來程式設計軟體主要有 basic 作品鑑賞編輯作品主題 學習程式設計,用什麼程式設計軟體? 山西新華電腦學校 具體要看用來做什...

用c語言程式設計怎麼求數的根號,用C語言程式設計怎麼求乙個數的根號

include include int main 自定義乙個求平方 根的函式 include define delt 10e 6 定義乙個精度要求 double mysqrt double x while x2 x1 delt return x0 int main void 一 來 在c語言中有庫函...