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

Предыдущий
вопрос Следующий
вопрос

program min_element;
var
X: array[1..6] of real;
i: integer;
min_element: real;
begin
for i := 1 to 6 do
begin
X[i] := (sin(i-1)/(2*cos(i)+1);
end;

min_element := X[1];
for i := 2 to 6 do
begin
if X[i] < min_element then
min_element := X[i];
end;

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