Функция возвращающая минимальный элемент массива размером до 50 элементов

Question

Функция возвращающая минимальный элемент массива размером до 50 элементов

Comments

Какой нужен язык?

Answer 1

Вообще-то в PascalABC.NET такая функция сто лет не нужна, но вот...

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

function aMin(a:array of integer):=a.Min;

function aMin(a:array of real):=a.Min;

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Min=',aMin(a));
  var b:=ArrRandomReal(ReadInteger('m='),-10,10); b.Println;
  Writeln('Min=',aMin(b));
end.

Пример
n= 15
-5 11 -6 -46 1 -44 -37 -6 -12 -16 -29 50 2 -12 14
Min=-46
m= 4
3.23076070902439 0.991638028524648 -6.15073071613476 9.34790070138308
Min=-6.15073071613476