vb，编写过程求一维数组中的最大值及其在数组中的位置（最好能把程序写下来）

Posted 2023-05-03

如果有几个最大值咋办？

dim iTest(n) as integer
dim iplace(n) as integer
dim max as integer
dim i as integer
dim j as integer

for i= 0 to n-1
if iTest(i)>iTest(i+1) then
max = iTest(i)
else
max = iTest(i+1)
end if
next

for i= 0 to n
if iTest(i)=max then
iplace(j) = i
end if
j=j+1
next

最大值：max
位置：iplace()追问

输出要怎么输出呢？能把窗体截图发一下吗

追答

Linux系统，我手打的。。。

for i = 0 to j
打印： iplace(i) //VB打印忘了。。。
next

参考技术A for for for

C语言利用指针编写程序,求一维数组中的最大和最小值

#include<stdio.h>
//利用指针编写程序,求一维数组中的最大和最小值
int main()
 int a[10],i;
 for(i=0;i<10;i++)
  scanf("%d",&a[i]);
 int max,min,*p;
 p=a;
 max=min=a[0];
 for(;p<a+10;p++)
 
  if(*p>max)
   max=*p;
  if(*p<min)
   min=*p;
 
 printf("max=%d,min=%d",max,min);
 return 0;