Составьте программу для нахождения минимального элемента массива Х, состоя - щего из 6 элементов, значения которых рассчитываются по формуле X = (sini-1) / 2cosi+1 Язык Турбо Паскаль

const

N = 6;

var

i: integer;

x: array[1 ... N] of double;

min: double;

begin

//формируем массив в соответствии с условием

for i : = 1 to N do

x[i] : = (sin (i) - 1) / (2*cos (i)) + 1;

min : = x[1]; / / минимуму присваиваем значение первого элемента массива

/ / Проверяем массив, начиная со второго элемента

/ / если текущий элемент меньше минимума

/ / то минимуму присваиваем значение текущего элемента

for i : = 2 to N do

if x[i] < min then min : = x[i];

writeln ('Минимальное значение = ', min);

end.