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

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
novic-di
1 / 1 / 0
Регистрация: 10.02.2011
Сообщений: 46
#1

Задан массив А(1:20). Найти произведение всех его нулевых элементов. - Pascal ABC

13.04.2011, 22:57. Просмотров 1071. Ответов 1
Метки нет (Все метки)

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

Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив эти элементы - Pascal ABC
Помогите, пожалуйста...

Задан массив, содержащий несколько нулевых элементов. Сжать его выбросив эти элементы - Pascal ABC
Задан массив, содержащий несколько нулевых элементов. Сжать его выбросив эти элементы, а оставшиеся расположить по убыванию. Есть код,...

Задан одномерный массив. Найти произведение отрицательных элементов массива. - Pascal ABC
Ребят помогите пожалуйста. Не шарю в программировании. Задан одномерный массив. Найти произведение отрицательных элементов массива. ...

Задан одномерный массив из n элементов. Найти среднее арифметическое всех элементов массива - Pascal ABC
Ребят помогите пожалуйста. Не шарю в программировании. Заранее спасибо.

Задан массив с целых чисел L(m). Найти сумму всех непарных элементов. - Pascal
Задан массив с целых чисел L(m). Найти сумму всех непарных элементов, если их нету, сообщить об этом

Задан массив, содержащий несколько нулевых элементов - Pascal
4. Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив эти элементы. я писал Program arr4; var ...

1
SunEclipse
232 / 181 / 40
Регистрация: 19.03.2010
Сообщений: 949
13.04.2011, 23:23 #2
Эм, произведение нулевых элементов будет равно 0.

Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
...
s:=1;
for i:=1 to n do begin
if a[i]<>0 then s:=s*a[i];
end;
write('Произведение= 's);
...
Это для ненулевых элементов.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.04.2011, 23:23
Привет! Вот еще темы с ответами:

Дан двумерный массив.Подсчитать сумму и произведение всех положительных его элементов - Pascal ABC
1)Дан двумерный массив.Подсчитать сумму и произведение всех положительных его элементов. 2)Подсчитать произведение всех введенных с...

Выдать на экран кол-во всех нулевых элементов и произведение положительных элементов, имеющих чётный индекс. - Pascal
Помогите написать программу на Borland Pascal и создать алгоритм… плиз?? Создать числовой массив А выдать на экран кол-во всех нулевых...

Двумерный массив.Получить массив x1,x2.xn по правилу xi=0. Найти также произведение всех элементов матрицы - Pascal
Дана матрица n*n. Получить массив x1,x2...xn по правилу xi=0, если все элементы i го столбца и i ой строки меньше 1, иначе xi=1. найти...

Дан двумерный массив найти произведение всех элементов - Pascal
Дан двумерный массив найти произведение всех элементов и ответить на вопрос были ли нулевые среди элементов?


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

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

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