Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 2
Регистрация: 13.11.2010
Сообщений: 23
1

Найти суму (произведение) положительных (отрицательных) элементов массива

18.12.2010, 03:56. Показов 965. Ответов 2
Метки нет (Все метки)

Найти суму (произведение) положительных (отрицательных) элементов массива
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2010, 03:56
Ответы с готовыми решениями:

Найти сумму положительных и произведение отрицательных элементов массива
Помогите пожалуйста решить задачки на массив в паскале : 1-В массиве A(N) содержатся положительные...

Найти сумму отрицательных и произведение положительных элементов массива
Найти сумму отрицательных и произведение положительных элементов массива.

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

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

2
26 / 25 / 15
Регистрация: 12.11.2010
Сообщений: 67
18.12.2010, 07:45 2
Лучший ответ Сообщение было отмечено @)WoLF(@ как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
S:=0; S1:=0;
P:=1; P1:=0;
For i:=1 to n do
 If M[i]>0 then
  begin
   S:=S+M[i];
   P:=P*M[i];
  end
 else
 If M[i]<>0 then
  begin
   S1:=S1+M[i];
   P1:=P1*M[i];
  end;
0
1 / 1 / 2
Регистрация: 13.11.2010
Сообщений: 23
18.12.2010, 10:58  [ТС] 3
Цитата Сообщение от aka_GRAD Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
S:=0; S1:=0;
P:=1; P1:=0;
For i:=1 to n do
 If M[i]>0 then
  begin
   S:=S+M[i];
   P:=P*M[i];
  end
 else
 If M[i]<>0 then
  begin
   S1:=S1+M[i];
   P1:=P1*M[i];
  end;
Напишите полностью алгоритм!!! спасибо!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2010, 10:58

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

Дан массив А (10). Найти произведение индексов положительных элементов и количество отрицательных элементов
Дан массив А (10). Найти произведение индексов положительных элементов и количество отрицательных...

Найти сумму положительных и произведение отрицательных элементов матрицы
ЦЕЛЬ РАБОТЫ. Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку,...

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


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

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

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