Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Евгения Джоб
1 / 1 / 0
Регистрация: 23.01.2012
Сообщений: 4
#1

Посчитать произведение отрицательных элементов массива

26.01.2012, 22:17. Просмотров 1160. Ответов 7
Метки нет (Все метки)

задать одномерный массив с помошью RND из 10 элементов. Посчитать произведение отрицательных элементов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2012, 22:17
Ответы с готовыми решениями:

Вычислить произведение сумм положительных и отрицательных элементов массива
Помогите пожалуйста решить задачи. Массивы Вычислить произведение сумм...

Массив: Получить количество отрицательных членов массива а1, ... , an и произведение элементов, принадлежащих отрезку [a,b].
Помогите!!! Составить программу, просто в паскале полный 0 :( Дан массив...

Посчитать сумму отрицательных элементов вектора
1.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы....

Посчитать произведение элементов, которые больше 6
Здравствуйте уважаемые модераторы! помогите, пожалуйста, написать 2 программы:...

Посчитать произведение всех ненулевых элементов матрицы
посчитать произведение всех ненулевых элементов массива Т

7
Veyron
106 / 106 / 9
Регистрация: 02.06.2009
Сообщений: 578
26.01.2012, 22:34 #2
И в чем трудность?
0
Евгения Джоб
1 / 1 / 0
Регистрация: 23.01.2012
Сообщений: 4
26.01.2012, 22:48  [ТС] #3
не очень то догоняю, как посчитать произведение
0
Veyron
106 / 106 / 9
Регистрация: 02.06.2009
Сообщений: 578
26.01.2012, 22:52 #4
взять переменную S, в которой будет единица первоначально. Затем, Если число в массиве является отрицательным, умножать его на S.
0
Евгения Джоб
1 / 1 / 0
Регистрация: 23.01.2012
Сообщений: 4
26.01.2012, 23:25  [ТС] #5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program nst;
uses crt;
var  i,a:integer;
a:array[1..100] of ineger;
begin
clrscr;
randomize;
s:=1;
for i:=1 to n do 
if a[i]<0 then s:=s*a[i];
for i:=1 to n do 
write (a[i]);
writeln;
end.

--------------------
исправьте все ошибки, пожалуйста.
легка задача, не вникаю просто.
1
Veyron
106 / 106 / 9
Регистрация: 02.06.2009
Сообщений: 578
26.01.2012, 23:38 #6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

багфикс:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program nst;
uses crt;
var
        s,i,n:integer;
        a:array[1..100] of integer;
begin
        n:=100;
        clrscr;
        randomize;
        for i:=1 to n do
                a[i]:=random(1400);
        s:=1;
        for i:=1 to n do 
        if a[i]<0 then s:=s*a[i];
        writeln(s);
        writeln;
end.
единственное замечание: программа всегда будет возвращать 1. Причина этому - функция random возвращает значение от нуля до указанного в скобках. Отрицательных не будет.
1
PolarFoG
NPC
151 / 145 / 22
Регистрация: 10.01.2012
Сообщений: 390
27.01.2012, 10:34 #7
a[i]:=random(2800)-1400; //-1400..1400
0
Veyron
106 / 106 / 9
Регистрация: 02.06.2009
Сообщений: 578
27.01.2012, 11:26 #8
PolarFoG, ну можно и так
0
27.01.2012, 11:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2012, 11:26

Найти произведение отрицательных элементов
Дан массив из 7 элементов (x1,…x7). Найти произведение отрицательных элементов.

Найти произведение отрицательных элементов последовательности
Даны последовательность чисел {a}_{1},{a}_{2},{a}_{3}, ..., {a}_{n} и число n –...

Одномерный массив. Посчитать Сумму отрицательных элементов кратных заданному числу
Условие: Посчитать Сумму отрицательных элементов кратных заданному числу....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru