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

@BaHTyC · Регистрация: 16.04.2013

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

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

Прошу как можно быстрее!

@qwertyo · 29.04.2013, 18:58

Pascal

var a:array[1..100]of integer;
q,n,m,k,i:integer;
begin
q:=1;
k:=0;
read(n);//êîëè÷åñòâî ýëåìåíòîâ ìàññèâà
read(m);//çàäàåì ÷èñëî, ñ êîòîðûì áóäåì ñðàâíèâàòü
for i:=1 to n do
begin
read(a[i]);
if(a[i]>m)then
begin
q:=q*a[i];
inc(k);
end;
end;
if(k=0)then write('Íåò òàêèõ')else
write(q);
readln;readln
end.

@BaHTyC 0 / 0 / 0 Регистрация: 16.04.2013 Сообщений: 13
		1
	Массивы: Найти произведение тех чисел, которые больше заданного числа 29.04.2013, 18:31. Показов 2171. Ответов 1 Метки нет (Все метки) 2. Дана последовательность целых положительных чисел. найти произведение тех чисел, которые больше заданного числа М. Если таких нет, то выдать сообщение об этом. Прошу как можно быстрее! 0

Опции темы

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

Решение