[Rokuell]

Да ладно, не трудно, так ты что реально pascal не знаешь?

Код:

function MaxVal:real;
var B:array [1..10] of real;
    max:real;
    i:integer;
begin
 for i:=1 to 10 do B[i]:=Random*3; // заполнение значений случайными числами
 max:=Low(integer);
 for i:=1 to 10 do
  begin
   if (B[i] > max) and (B[i] >=2) and (B[i] <=2.5) then max:=B[i];
  end;
 if max= Low(integer) then
  begin
   Result:=0; // Если ответа нет, то пусть функция возвращает 0
  end
 else
  begin
   Result:=max;
  end;
end;