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

Question

Информатика

Ксана

29 марта, 20:49

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

+3

Ответы (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.