функция нахождения max/min эл-та в массиве

[Zhenya-Pvl]

Помогите написать прогу, которая при данном массиве находила в нём max и min эл-т, но с помощью функций. Я не понимаю, какие параметры её передавать

[Alexar Makken]

Минимальный по аналогии...

program pr;
var
a:array[1..100] of integer;
i,k:integer;
{+++++++++++++++++++++++++++++}
Procedure Maximum(n:integer);
var
   x,max,imax:integer;
begin
     max:=-1000;
     for x:=1 to n do
     if a[x]>max then
     begin
          max:=a[x];
          imax:=x;
     end;
    writeln('max=',max);
    writeln('nomer=',imax);

end;
{+++++++++MAIN+++++++++++}
Begin
   write('k= ');
   readln(k);
   for i:=1 to k do
   read (a[i]);

   writeln;
   for i:=1 to k do
      write (a[i],'  ' );
   writeln;
   Maximum(k);


end.

[Serge_Bliznykov]

Помогите написать прогу, которая при данном массиве находила в нём max и min эл-т, но с помощью функций.

в функцию надо передавать Ваш Массив. Если массив статический и заведомо больше, чем задаваемый пользователем размер, то тогда в функцию надо передавать и размер массива N

примерно так:

type MyArray = array[1..1000] of integer;

function GetMin(A : MyArray; Asize : integer) : integer;
var i. Min : integer;
begin
   GetMin := -1;
   if Asize<1 then  exit;
   Min := A[1];
   for i:=2 to Asize do
     if A[i]<Min then Min := A[i];
   GetMin := Min
end;

var
   Mas : MyArray;
   i, N : integer;
begin
   WriteLn('Введите размерность массива: ');
   Readln(N);
   if (N<1) or (N > 1000) then begin
      WriteLn('Недопустимый размер массива (нужно от 1 до 1000)! Выходим...');
      Halt(1) 
   end;
   for i:=1 to N do begin
      WriteLn('Введите ',i,'-й элемент массива: ');
      Readln(Mas[i]);
   end;
  WriteLn('минимальный элемент массива равен ',GetMin(Mas, N));
  Readln;
end.

[artemxartem]

может мне кто-то составить такой текст:
else if(self.aivar[AIV_WASDEFEATEDBYSC] == 1)
{
Mdl_SetModelScale(self,0.98,0.98,0. 98);
self.aivar[AIV_WASDEFEATEDBYSC] = 2;
}
else if(self.aivar[AIV_WASDEFEATEDBYSC] == 2)
{
Mdl_SetModelScale(self,0.97,0.97,0. 97);
self.aivar[AIV_WASDEFEATEDBYSC] = 3;
}
else if(self.aivar[AIV_WASDEFEATEDBYSC] == 3)
{
Mdl_SetModelScale(self,0.96,0.96,0. 96);
self.aivar[AIV_WASDEFEATEDBYSC] = 4;
}

...

else if(self.aivar[AIV_WASDEFEATEDBYSC] == 69)
{
Mdl_SetModelScale(self,0.3,0.3,0.3) ;
self.aivar[AIV_WASDEFEATEDBYSC] = 70;
}
Очень надо, просто в данный момент нет возможности поставить компилятор.
сорь за оффтоп
Спасибо