Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.