найти мінімальний елемент масиву від 1 до 15 кожний з яких обчислюється за формулою ⁵√16i²+1 (Паскаль)​

var i:integer;

var min:real;

var mas:array [1..15] of real;

begin

 for i:=1 to 15 do

   mas[i] := power((16*i*i+1),(1/5));

 for i:=1 to 15 do

   write(mas[i],', ');

 min := mas[i];

 writeln;

 for i:=1 to 15 do

  begin

   if mas[i] < min then

     min := mas[i];

  end;

  writeln('Минимальный эллемент массива: ',min);

 end.

Объяснение: