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

@Пушистый колбас · Регистрация: 16.02.2010

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

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

@TAVulator · 26.07.2010, 13:33

Pascal

1
2
3

S:=0;
For i:=1 to N do
 if A[i]>M then S:=S+A[i];

Jabbson · 26.07.2010, 13:39

Pascal

const num=5;
var a:array [1..num] of integer;
ch,rez,i:integer;
 
begin
for i:=1 to num do
begin
write('a[',i,']= ');readln(a[i]);
end;
rez:=1;
write('Число: ');readln(ch);
for i:=1 to num do if a[i]>ch then rez:=rez*a[i];
writeln('Произведение: ',rez);
end.

@Puporev · 26.07.2010, 14:04

TAVulator, Условие читай.....

Добавлено через 23 минуты
Пушистый колбас, А то что тема одномерные массивы так и было, или вы придумали? Просто массив здесь вообще не нужен.

@Пушистый колбас · 26.07.2010, 14:05 **[ТС]**

Тут все хитро, надо использовать массивы.

@Пушистый колбас 1 / 1 / 0 Регистрация: 16.02.2010 Сообщений: 19
		1
	Найти произведение только тех чисел, которые больше заданного числа М 26.07.2010, 13:25. Показов 1173. Ответов 4 Метки нет (Все метки) Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	26.07.2010, 14:04	4
	TAVulator, Условие читай..... Добавлено через 23 минуты Пушистый колбас, А то что тема одномерные массивы так и было, или вы придумали? Просто массив здесь вообще не нужен. 1

@Пушистый колбас 1 / 1 / 0 Регистрация: 16.02.2010 Сообщений: 19
	26.07.2010, 14:05 [ТС]	5
	Тут все хитро, надо использовать массивы. 0

Опции темы