0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 13
1

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

29.04.2013, 18:31. Показов 2236. Ответов 1
Метки нет (Все метки)

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

Прошу как можно быстрее!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2013, 18:31
Ответы с готовыми решениями:

Найти произведение только тех чисел, которые больше заданного числа m
Составить программу на паскале, содержащую минимум четыре подпрограммы. Дан одномерный массив,...

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

Найти сумму тех чисел, которые больше заданного М
вводить в переменную x последовательно 25 чисел x. найти сумму тех чисел которые > заданного М...

Даны числа от 1 до n Найти среднее арифметическое только тех чисел Которые больше числа x вводимого с клавиатуры
Здравствуйте, нужна ваша помощь! Даны числа от 1 до n Найти среднее арифметическое только тех...

1
25 / 25 / 28
Регистрация: 20.03.2011
Сообщений: 150
29.04.2013, 18:58 2
Лучший ответ Сообщение было отмечено BaHTyC как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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.
0
29.04.2013, 18:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2013, 18:58
Помогаю со студенческими работами здесь

Вводить числа, пока не встретится 7. Найти квадраты тех чисел, которые больше 10
Вводить числа, пока не встретится 7. Найти квадраты тех чисел, которые больше 10. задача на цикл...

Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти
Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти.

Найти среднее арифметическое тех элементов массива, которые больше заданного значения Z
Дан массив X(N,M).Найти среднее арифметическое тех элементов массива, которые больше заданного...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru