Вопрос по информатике:
Из 27 целых чисел,заданных с клавиатуры ,найти произведение отрицательных элементов.
Пожаловаться
- 16.12.2017 06:43
- Информатика
- remove_red_eye 8866
- thumb_up 49
Ответы и объяснения 2
1 П0 0 П4 С/П x<0 10 ИП0 * П0 КИП4 ИП4 2 7 - x=0 04 ИП0 Сx С/П
Инструкция: В/О С/П число_1 С/П число_2 С/П ... число_27 С/П.
После получения 27-го числа на индикаторе результат.
Инструкция: В/О С/П число_1 С/П число_2 С/П ... число_27 С/П.
После получения 27-го числа на индикаторе результат.
Пожаловаться
- 17.12.2017 13:17
- thumb_up 33
Const
n=27;
var
i,t:integer;
p:real;
begin
p:=1;
for i:=1 to n do begin Read(t); if t<0 then p:=p*t end;
Writeln('Произведение отрицательных элементов равно ',p)
end.
Пример
-12 35 -98 -15 36 -40 -95 -12 -57 40 66 -53 -44 23 -2 67 -28 59 -74 -97 -65 -13 -47 94 12 18 -52
Произведение отрицательных элементов равно -8.87597799232315E+25
n=27;
var
i,t:integer;
p:real;
begin
p:=1;
for i:=1 to n do begin Read(t); if t<0 then p:=p*t end;
Writeln('Произведение отрицательных элементов равно ',p)
end.
Пример
-12 35 -98 -15 36 -40 -95 -12 -57 40 66 -53 -44 23 -2 67 -28 59 -74 -97 -65 -13 -47 94 12 18 -52
Произведение отрицательных элементов равно -8.87597799232315E+25
Пожаловаться
- 18.12.2017 02:09
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы