Вопрос по информатике:
Паскаль.В одномерном массиве х(15) найти количество элементов, удовлетворяющих условию –0,5< sinxi ≤ 0, минимальный элемент. Полная программа!
- 14.03.2018 02:26
- Информатика
- remove_red_eye 4400
- thumb_up 19
Ответы и объяснения 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.
- 15.03.2018 02:57
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.