用delphi编写函数求一个数组中的最大值和最小值

Posted 2023-05-03

急求，谢谢各位了哪位高手帮下忙

参考技术A //求最大值
function GetMaxInArray(A: array of Integer): Integer;
var
I: Integer;
tmpMax: Integer;
begin
tmpMax := A[0];

for I := low(A) to High(A) do
begin
if A[I] > tmpMax then tmpMax := A[I];
end;

Result := tmpMax;
end;

//求最小值
function GetMinInArray(A: array of Integer): Integer;
var
I: Integer;
tmpMin: Integer;
begin
tmpMin := A[0];

for I := low(A) to High(A) do
begin
if A[I] < tmpMin then tmpMin := A[I];
end;

Result := tmpMin;
end;

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;