Я неуверен, но формулы есть в программе Microsoft Word. Надеюсь помог)
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var i := a.IndexMin;
Println('Минимальный элемент', a[i], 'имеет номер', i + 1)
end.
Var
i : longint;
begin
for i:=100 downto 10 do writeln(i);
<span>end;</span>