Написать программу, которая возвращает функцию нахождения минимального элемента любого целочисленного элемента

Function min(a: array of integer): integer; var i, m: integer; begin       for i : = 0 to length(a) do           if (a[i] < m) then m : = a[i];       result : = m; end; вот, в теории должно работать, но проверить, извините, не могу, pascalabc не поддерживает передачу массивов> <

Быть может, написать программу, функция которой возвращает найденный минимальный элемент целочисленного массива?

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

Тут довольно простое , которое можно решить просто подбором (найти правильное основание системы, и заодно выяснить что за цифры соответствуют остальным символам).я объясню немного подробнее логику рассуждений при таком решении. итак: символ  #      это 1запись    # *    это 4запись    # @    это 7 найти, чему равна запись  @ * # для того, чтобы это найти, нам надо узнать основание используемой здесь системы счисления. обозначим его как x.вспомним, что основание системы счисления- это целое число не меньше двух (x ≥ 2). рассмотрим запись числа четыре: (это перевод числа из системы с основанием x в десятичную)раз запись числа 4 состоит из двух разрядов, значит основание системы не может быть больше четырёх (x≤4).ведь уже при основании пять (x = 5)  вес второго разряда числа был бы равен пяти и всё число было бы явно больше четырёх. далее, рассмотрим запись числа семь: мы видим, что второй разряд не изменился- здесь тоже стоит единица. а само число увеличилось на три (7 - 4 = 3). значит, на три увеличилась цифра в первом разряде (была *, стала @). то есть,  итак, основание- это целое число, не меньше двух и не больше четырёх. подходят всего три числа- 2, 3, 4.в каком из этих оснований системы можно прибавить к цифре три без переноса в следующий разряд? если основание 2 -то есть всего две цифры:   0 и 1если основание 3 -то есть три цифры: 0, 1 и 2если основание 4 -то четыре цифры: 0, 1, 2 и 3такие цифры используются в одном разряде. и, если при сложении мы выходим за эти цифры, то произойдёт перенос в следующий разряд (чего у нас не было, во втором разряде осталась единица). получается, что в пределах одного разряда, тройку можно прибавить только в системе с основанием 4, причём только в одном случае (0 + 3 = 3).значит: символ  *  это 0символ  @  это 3а основание системы счисления равно четырём осталось перевести запись @ * #  из четверичной в десятичную систему счисления: ответ: 49