UC知道PASCAL简单问题!~
来源：百度知道 编辑：UC知道 时间：2024/05/30 11:59:34
题目:从数组中找出最大的一个元素，并指出它是哪一个元素。
分析：设变量max，先将第一个元素的值与max比较，如max小于当前元素，则把当前元素的值赋于max，并记录其下标，然后按此方法，从第二个元素开始逐个与max比较，直到所有元素都与max比较完后，max的值即是所有元素中的最大值。
var a:array [1..100] of integer;//[1..100] 是从1到100还是有100个数?
i,k,n,max:integer;
begin
write('Input n:'); readln(n);
writeln('Input ',n,' data into array:');
for i:=1 to n do read(a[i]); //这是计数器还是什么?i:=1 to n do read(a[i])是干什么的?
readln; //上面已经readln(n)了,那么这的readln输入的是什么?
max:=a[1]; k:=1;
for i:=2 to n do//这里是循环是的底下的语句还是那的?
if max<a[i] then
begin max:=a[i]; k:=i end;
writeln('Max is a[',k,']=',max)
end.
分析：设变量max，先将第一个元素的值与max比较，如max小于当前元素，则把当前元素的值赋于max，并记录其下标，然后按此方法，从第二个元素开始逐个与max比较，直到所有元素都与max比较完后，max的值即是所有元素中的最大值。
var a:array [1..100] of integer;//[1..100] 是从1到100还是有100个数?
i,k,n,max:integer;
begin
write('Input n:'); readln(n);
writeln('Input ',n,' data into array:');
for i:=1 to n do read(a[i]); //这是计数器还是什么?i:=1 to n do read(a[i])是干什么的?
readln; //上面已经readln(n)了,那么这的readln输入的是什么?
max:=a[1]; k:=1;
for i:=2 to n do//这里是循环是的底下的语句还是那的?
if max<a[i] then
begin max:=a[i]; k:=i end;
writeln('Max is a[',k,']=',max)
end.
var a:array [1..100] of integer;//数组下标a[1]到a[100]，100个数
i,k,n,max:integer;
begin
write('Input n:'); readln(n);
writeln('Input ',n,' data into array:');
for i:=1 to n do read(a[i]); //for循环 循环变量i从1到n逐个执行read(a[i]);
readln; //上面是read,读下一个数；readln读到行尾，结束输入。
max:=a[1]; k:=1;
for i:=2 to n do//从第2个数到第n个数的比较循环，下面到end是循环体。
if max<a[i] then
begin max:=a[i]; k:=i end;
writeln('Max is a[',k,']=',max)
end.
for i:=1 to n do read(a[i]); //这是计数器还是什么?i:=1 to n do read(a[i])是干什么的? N是你输入的数，意思是说 从1到你输入的这个数为止，一个个读取这些数readln; //上面已经readln(n)了,那么这的readln输入的是什么? readln(n) 是回车 换行的意思max:=a[1]; k:=1; for i:=2 to n do//这里是循环是的底下的语句还是那的? 是下面的循环语句 从下个if开始上面有了max=a[1]即max这时＝第一个数 然后for i:=2 to n doi从第二个数开始 一个个往后读，直到你输入的N为止与max比较大下 别的你明白了