Вопрос по информатике:
Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких нет, то выдать сообщение об этом.
Нужно решить в Паскале с помощью линейных массивов
- 26.03.2018 07:07
- Информатика
- remove_red_eye 11979
- thumb_up 19
Ответы и объяснения 1
Program p;
uses crt;
const N= 10; {N - количество чисел в последовательности}
var i,p, M:integer; a:array[1..N] of integer;
begin
p:=1;
write('введите число M=');readln(M);
writeln('введите исходный массив');
for i:=1 to N do {начало цикла по кол эл }
begin
write('a[',i,']='); readln(a[i]); {ввод эл массива}
if a[i]>M then p:=p*a[i];
end;
if M=1 then writeln(' элементов > M нет')
else writeln('p=',p); {печать произведения}
readln
end.
- 27.03.2018 17:56
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.