Вопрос по информатике:
дана последовательность целых положительных чисел.найти произведение только тех из них которые больше заданного числа m.если таких чисел нет,то выдать сообщение об этом Паскаль!!! можно с обьяснениями плиз))
- 09.02.2018 14:32
- Информатика
- remove_red_eye 15452
- thumb_up 79
Ответы и объяснения 1
program test;
var a: array[1..10] of integer;m, i: integer;
total: longint;
begin
randomize;
total:=1;
for i:=1 to 10 do
begin
a[i]:=random(20)+1;
write(a[i], ' ');
end;
writeln();
write('Enter the number: ');
readln(m);
for i:=1 to 10 do
begin
if a[i] > m then
total:= total*a[i];
end;
if total > 1 then
writeln('Total = ', total)
else
writeln('Error');
readln;
end.
- 09.02.2018 17:55
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.