Question

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

Answer 1

var
 x: array [1..15] of real;
 m: real;
 i,k: integer;
begin
 for i := 1 to 15 do
  read(x[i]);
 k := 0;
 m := x[1];
 for i := 1 to 15 do
  begin
  if ( -0.5 < sin(x[i]) ) and ( sin(x[i]) <= 0 ) then
   k := k + 1;
  if x[i] < m then
   m := x[i];
  end;
 writeln('quantity: ',k);
 writeln('min: ',m)
end.

Answer 2

Огромнейшее спасибо вам!!! Извините, я вообще просто не разбираюсь) Что должно происходить при запуске программы или какие вводить данные?

Answer 3

Вы должны ввести 15 чисел. После этого выводится количество искомых элементов и минимальный

Answer 4

Весьма странно...В задании нет никаких чисел(

Answer 5

Тогда не знаю