В одномерном массиве х (15) найти Количество элементов, удовлетворяющих условию - 0,5< sinxi ≤ 0, минимальный элемент.

Question

Информатика

Акся

21 июня, 09:35

В одномерном массиве х (15) найти Количество элементов, удовлетворяющих условию - 0,5< sinxi ≤ 0, минимальный элемент.

+4

Ответы (1)

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

Витуля · Answer 1

Var

X : array[1 ... 15] of Real;

i : Byte;

Begin

n:=0;

For i:=1 to 15 do

Begin

Readln (X[i]) ;

If (sin (X[i]) >-0.5) and (sin (X[i]) <=0) then n:=n+1;

end;

Writeln (n) ;

end.