UC知道PASCAL问题(急)
来源：百度知道 编辑：UC知道 时间：2024/06/07 16:06:06
1.在数组中[1..100] 这些数要你输入还是只是1到100?
2.题目:从数组中找出最大的一个元素，并指出它是哪一个元素。
分析：设变量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]); //这里循环那里?
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.
2.题目:从数组中找出最大的一个元素，并指出它是哪一个元素。
分析：设变量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]); //这里循环那里?
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，它有100个元素，固定是100个，这100个元素分别用a[1]、a[2]、……a[100]表示，你可以理解为一下定义了100个变量。定义的时候这100个变量没有赋值，它们的内容都是不可知的。
顺便说一句，你的程序是正确的，可以执行，并能得到正确结果。
不知道你第1个问题是不是第2个问题里的延伸,第2个问题里的[1..100]我认为是限定范围,那个循环很明显是读取数组的循环因为要从a[1]读到a[n].