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

@Tifani · Регистрация: 23.10.2012

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

Найти сумму и произведение всех элементов одномерного массива, больших заданного числа.

@Xenia1996 · 11.11.2012, 16:15

Сообщение от Tifani

Найти сумму и произведение всех элементов одномерного массива, больших заданного числа.

Довольно похожая задача у нас уже была.

@Tifani · 11.11.2012, 16:38 **[ТС]**

Я читала ту тему, но все равно не могу разобраться. К тому же мне не понятно, как сделать произведение.

@privit_91 · 11.11.2012, 21:10

Pascal

program primer;
var
i,n,s,p, t: integer;
mas: array [1..15] of integer;
     begin
     s:=0;
     p:=1;
     writeln('Введите число элементов');
     readln(n);
     writeln('Введите число для сравнения');
     readln(t);
               for i:=1 to n do
               readln(mas[i]);
                              for i:=1 to n do
                              begin
                                   if mas[i]>t then
                                   begin
                                   p:=p*mas[i];
                                   s:=s+mas[i];
                                   end;
                              end;
               writeln('Сумма=',s);
               writeln('Произведение=',p)
    end.

@pryda · 11.11.2012, 21:32

Сообщение от privit_91

Pascal

writeln('Введите число для сравнения'); 
readln(t); 
for i:=1 to n do 
readln(mas[i]);

ввожу 20

@Xenia1996 · 11.11.2012, 21:35

Сообщение от pryda

ввожу 20

Не по теме:

Я дура, конечно, но по-моему тут динамический массив нужен. Я не права?

@pryda · 11.11.2012, 21:38

Сообщение от Xenia1996

Я дура, конечно, но по-моему тут динамический массив нужен. Я не права?

достаточно будет ограничиться хотя бы проверкой границ массива

@Tifani · 11.11.2012, 21:48 **[ТС]**

А если условие изменится, что следует поменять?
Найти сумму и произведение всех элементов одномерного массива, кратных заданному числу.

@pryda · 11.11.2012, 22:12

при чём тут условие. тут стоить проблема выхода за границы массива и всё. условие может быть какое вам угодно.

@Tifani 5 / 5 / 0 Регистрация: 23.10.2012 Сообщений: 21
		1
	Найти сумму и произведение всех элементов одномерного массива, больших заданного числа 11.11.2012, 16:00. Показов 6349. Ответов 8 Метки нет (Все метки) Найти сумму и произведение всех элементов одномерного массива, больших заданного числа. 0

@Xenia1996 151 / 28 / 3 Регистрация: 23.10.2012 Сообщений: 328
	11.11.2012, 16:15	2
	Сообщение от Tifani Найти сумму и произведение всех элементов одномерного массива, больших заданного числа. Довольно похожая задача у нас уже была. 0

@Tifani 5 / 5 / 0 Регистрация: 23.10.2012 Сообщений: 21
	11.11.2012, 16:38 [ТС]	3
	Я читала ту тему, но все равно не могу разобраться. К тому же мне не понятно, как сделать произведение. 0

@Xenia1996 151 / 28 / 3 Регистрация: 23.10.2012 Сообщений: 328
	11.11.2012, 21:35	6
	Сообщение от pryda ввожу 20 Не по теме: Я дура, конечно, но по-моему тут динамический массив нужен. Я не права? 0

@pryda Неадекват и грубиян 310 / 297 / 301 Регистрация: 22.02.2010 Сообщений: 647
	11.11.2012, 21:38	7
	Сообщение от Xenia1996 Я дура, конечно, но по-моему тут динамический массив нужен. Я не права? достаточно будет ограничиться хотя бы проверкой границ массива 0

@Tifani 5 / 5 / 0 Регистрация: 23.10.2012 Сообщений: 21
	11.11.2012, 21:48 [ТС]	8
	А если условие изменится, что следует поменять? Найти сумму и произведение всех элементов одномерного массива, кратных заданному числу. 0

@pryda Неадекват и грубиян 310 / 297 / 301 Регистрация: 22.02.2010 Сообщений: 647
	11.11.2012, 22:12	9
	при чём тут условие. тут стоить проблема выхода за границы массива и всё. условие может быть какое вам угодно. 0