Составьте программу для нахождения минимального элемента массива Х, состоя-

щего из 6 элементов, значения которых рассчитываются по формуле

X = (sini-1) / 2cosi+1

Язык Турбо Паскаль

Question

Информатика

Олимпий

5 сентября, 22:55

Составьте программу для нахождения минимального элемента массива Х, состоя-

щего из 6 элементов, значения которых рассчитываются по формуле

X = (sini-1) / 2cosi+1

Язык Турбо Паскаль

+2

Ответы (1)

Знаете ответ на вопрос?

Лавруня · Answer 1

Const n=6;

var x:array[1 ... n] of real;

min:real; i:integer;

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]
writeln ('min=', min:5:3) ;

end.