Функция с массивами

[Nikki]

F=(min(b1..bn)+min(c1..cn),если|min (a1..ak)|>10)/(1+min(c1..cn)*min (c1..cn),если |min(a1..ak)|<=10).
Пожалуйста!

[puporev]

В чем проблема-то? Создаешь три массива a:array[1..k]; b,c:array[1..n];
Находишь amin,bmin,cmin. Если abs(amin)>10, подставляешь их в одну формулу, else-в другую формулу. Выводишь результат и все.

[SNUPY]

Вот держи

Var 
  a,b,c,:array of real;
  n, k:cardinal;
  F:Real;
Function Min(Mas: array of real):real;
var i:Cardinal;
begin
  if Length(Mas)=0 then
    begin
      Result:=0;
      Exit;
    end;
  result:=Mas[0];
  for i:=1 to length(Mas)-1 do
    begin
      If Result>Mas[i] then Result:=Mas[i];
    end;
end;

Procedure ReadArray(Mas: array of real);
var i:cardinal;
begin
   if length(Mas)=0 then Exit;
   For i:=0 to Length(Mas)-1 do
   begin
      readln(Mas[i]);
   end;
end;

begin
  writeln('b, c count?');
  readln(n);
  setlength(b, n);
  setlength(c, n);
  ReadArray(b);
  ReadArray(c);
  writeln('a count?');
  readln(k)
  setlength(a, k);
  ReadArray(a);
  if ABS(Min(a))>10 then
     F:=(Min(b)+Min(c))
  else 
     F:=(1+Min(c)*Min(c));
  write(F);
  Readln;
end;

[Nikki]

В условии вчера немного опечаталась.Все три массива имеют различную размерность.
Я делаю так:
const k=2;m=3;n=4;
var a:array [1..k] of real;
b:array[1..m] of real;
c:array [1..n] of real;
var F:real;
function min (mas:array of real):real;
var i:integer;
begin
min:=mas[1];
for i:=1 to ...(до чего?) do
begin if mas[i]<min then min:=mas[i]; end; end; и тд.
Можно быстрее.

[Stilet]

for i:=1 to ...(до чего?) do

for i:=1 to high(mass) do