Найти произведение только тех чисел, которые больше заданного числа

@vitalii13001 · Регистрация: 18.04.2011

Студворк — интернет-сервис помощи студентам

дана последовательность целых положительных чисел. найти произведение только тех чисел, которые больше заданного числа М. если таких нет, то выдать сообщение об этом.

@Igor · 19.04.2011, 22:06

с помощью массива?

@vitalii13001 · 19.04.2011, 22:08 **[ТС]**

точно не знаю, но вроде бы так

@Igor · 19.04.2011, 22:13

Pascal

program bb;
uses crt;
const n=10;
var a:array[1..10]of integer;
i,m,p:integer;
begin
randomize;
for i:=1 to n do
begin
write('a[',i,'] =');
read(a[i]);
end;
writeln;
write('Ââåäèòå M = ');
read(m);
writeln;
p:=1;
for i:=1 to n do
if a[i]>m then
begin
p:=p*a[i];
end;
if p<>1 then
write('p = ',p)
else
write('Òàêèõ ÷èñåë íåò');
end.

@vitalii13001 0 / 0 / 0 Регистрация: 18.04.2011 Сообщений: 27
		1
	Найти произведение только тех чисел, которые больше заданного числа 19.04.2011, 22:05. Показов 9532. Ответов 3 Метки нет (Все метки) дана последовательность целых положительных чисел. найти произведение только тех чисел, которые больше заданного числа М. если таких нет, то выдать сообщение об этом. 0

@Igor 4652 / 3404 / 361 Регистрация: 11.11.2010 Сообщений: 6,205 Записей в блоге: 2
	19.04.2011, 22:06	2
	с помощью массива? 0

@vitalii13001 0 / 0 / 0 Регистрация: 18.04.2011 Сообщений: 27
	19.04.2011, 22:08 [ТС]	3
	точно не знаю, но вроде бы так 0

Опции темы

Найти произведение только тех чисел, которые больше заданного числа

Решение