[Rokuell]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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;