Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Евгения Джоб
1 / 1 / 0
Регистрация: 23.01.2012
Сообщений: 4
#1

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

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

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

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

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

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

Посчитать произведение элементов, которые больше 6 - Free Pascal
Здравствуйте уважаемые модераторы! помогите, пожалуйста, написать 2 программы: 1. С клавиатуры вводятся длина (<=100) вектора и его...

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

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

7
Veyron
106 / 106 / 4
Регистрация: 02.06.2009
Сообщений: 579
26.01.2012, 22:34 #2
И в чем трудность?
0
Евгения Джоб
1 / 1 / 0
Регистрация: 23.01.2012
Сообщений: 4
26.01.2012, 22:48  [ТС] #3
не очень то догоняю, как посчитать произведение
0
Veyron
106 / 106 / 4
Регистрация: 02.06.2009
Сообщений: 579
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 / 4
Регистрация: 02.06.2009
Сообщений: 579
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 / 10
Регистрация: 10.01.2012
Сообщений: 390
27.01.2012, 10:34 #7
a[i]:=random(2800)-1400; //-1400..1400
0
Veyron
106 / 106 / 4
Регистрация: 02.06.2009
Сообщений: 579
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
Привет! Вот еще темы с ответами:

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

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

Найти произведение количества отрицательных элементов и количество положительных элементов массива - Pascal
Прошу помощи. Задание: Задан одномерный, целочисленный массив A(n), (n&lt;=40).Найти произведение количества отрицательных элементов и...

Посчитать количество отрицательных, положительных и нулевых элементов массива - Pascal
Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран,...


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

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

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