UC知道PASCAL简单问题!
来源：百度知道 编辑：UC知道 时间：2024/06/06 22:54:43
题目:从数组中找出最大的一个元素，并指出它是哪一个元素。
分析：设变量max，先将第一个元素的值与max比较，如max小于当前元素，则把当前元素的值赋于max，并记录其下标，然后按此方法，从第二个元素开始逐个与max比较，直到所有元素都与max比较完后，max的值即是所有元素中的最大值。
var a:array [1..100] of integer;
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]); //这里是不是从1到N依次给a[i]?
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;
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]); //这里是不是从1到N依次给a[i]?
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;
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]); 依次读入数组
max:=a[1]; k:=1; max设为第一个元素
for i:=2 to n do
if max<a[i] then 如果下一个元素大于max，
begin max:=a[i]; k:=i end; 就把这个元素值付给max；编号给k
writeln('Max is a[',k,']=',max) 输出
end.