Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
NomoZ
0 / 0 / 0
Регистрация: 16.05.2017
Сообщений: 1
1

Найти произведение ненулевых элементов и количество нулевых элементов одномерного массива

16.05.2017, 09:06. Просмотров 840. Ответов 1
Метки нет (Все метки)

Здравствуйте! Помогите, пожалуйста, сделать программу в Лазарусе

1. Дан одномерный массив. Найти произведение ненулевых элемен-
тов и количество нулевых элементов.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2017, 09:06
Ответы с готовыми решениями:

Найти произведение ненулевых элементов и количество нулевых элементов массива
Дан одномерный массив. Найти произведение ненулевых элементов и количество...

Найти количество нулевых элементов в матрице
В матрице А(3,3) найти количество нулевых элементов. Если можно, полностью...

Найти количество элементов, больших среднего арифметического всех элементов массива
Помогите составить программу,пожалйста. С Графическим интерфейсом. Дан...

Найти сумму индексов отрицательных элементов одномерного массива
Найти сумму индексов отрицательных элементов одномерного массива. Вывести...

Найти разность максимального и минимального элементов одномерного массива
Задача: Найти разность максимального и минимального элементов одномерного...

1
Joey
Форумчанин
943 / 564 / 220
Регистрация: 05.05.2015
Сообщений: 3,254
Записей в блоге: 2
16.05.2017, 23:18 2
Лучший ответ Сообщение было отмечено NomoZ как решение

Решение

Delphi
1
2
3
4
5
6
7
8
var
k: integer = 0; // считаем количество нулевых
m: integer = 1; // считаем произведение ненулевых
begin
for i := 0 to High(Massiv) do
if Massiv[i] = 0 then m := m * Massiv[i] else
k += 1;
end;
Вот и все.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2017, 23:18

Найти сумму и произведение первых пяти элементов массива
Напишите пожалуйста в Lazarus. Задача третья -"найти сумму и произведение...

Вычислить сумму элементов массива X и произведение элементов массива Y
Записать положительные элементы массива X подряд в массив Y . Вычислить сумму...

Найти среднее арифметическое элементов строк матрицы и произведение элементов ее столбцов
Доброго времени суток. Не могу решить следующую задачу: Сформировать вектор...


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

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

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