Паскаль.В одномерном массиве х(15) найти количество элементов, удовлетворяющих условию –0,5< sinxi ≤ 0, минимальный элемент. Полная программа!
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Огромнейшее спасибо вам!!! Извините, я вообще просто не разбираюсь) Что должно происходить при запуске программы или какие вводить данные?
Ответ дал:
0
Вы должны ввести 15 чисел. После этого выводится количество искомых элементов и минимальный
Ответ дал:
0
Весьма странно...В задании нет никаких чисел(
Ответ дал:
0
Тогда не знаю
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад