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

Var  X : array[1..15] of Real;  i : Byte;Beginn:=0;For i:=1 to 15 doBegin  Readln(X[i]);  If (sin(X[i])>-0.5) and (sin(X[i])<=0) then n:=n+1;end;Writeln(n);end.