pascal求最大數最小數

1樓：匿名使用者

pascal中沒有return之類返回結果嗎？還有你的陣列下標對嗎？

2樓：武風

我給你我的標程

var i,j,n,m,k,t:longint;

a:array[1..10000000]of longint;

begin

readln(n);

for i:=1 to n do read(a[i]);

for i:=1 to n-1 do

for j:=i+1 to n do beginif a[i]>a[j] then begint:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

end;

write(a[1],' ',a[n]);

end.

3樓：匿名使用者

varn,i,x,min,max:longint;

begin

read(n,min,max);

for i:=2 to n do

begin

read(x);

if x>max then max:=x;

if x

end;

writeln(min,' ',max);

end.

4樓：匿名使用者

var a:array[1..10000] of longint; n,i:

longint;procedure qsort(head,last:longint);var i,j,x:longint;begin if head>=last then exit; x:

=a[head]; i:=head; j:=last; while i=x) do dec(j); a[i]:

=a[j]; while (i

=1 to n do read(a[i]); qsort(1,n); write(a[1],' ',a[n]);end.

excel裡面刪除最大數和最小數公式如何寫 如 9 8 7 6 8 9 4 6 7 5 7 4請各位幫忙

不按照順序排列 按列的 if or and a1 max a 1 a 12 countif a 1 a1,max a 1 a 12 1 and a1 min a 1 a 12 countif a 1 a1,min a 1 a 12 1 a1 按行的 if or and a18 max a 18 l ...

9595400這些數字拼出的最大數值是多少

9955400 因為數字越靠前則代表的數字越大，所以應儘可能地將數值大的數字放在前面，然後依次按數字的數值大小依次排列。例如 9和8兩個數字，若9放在個位，則只比8放在個位大1 若9放在十位則比8放在十位大10。兩個0組合成 無窮大,比9955400大.9955400不對啊 不對，因為我在最囚大腦裡...

較大數和較小數是什麼意思，求較大數和較小數是多少？

解 較大數和較小數是。指兩個或兩個以上的數之間相互比較，大的是較大數，小的是較小數。較大的數是較小的數的10倍較小數是較大數是。求較大數和較小數是多少？思路分析 因為較小數的小數點向右移動了一位，就等於較大數，所以較大的數是較小的數的十倍，兩數的和就是較小的數的11倍，可求。較大數與較小數的科學記數...