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

Узнай цену своей работы

Формулировка задачи:

Всем доброго времени суток. Задали сделать лабораторные работы, но вот незадача, простые я смог выполнить а с массивом и так и сяк, не как не получается. Прошу вашей помощи, если можно то программу лучше напишите полностью. Задача. В одномерном массиве X(15) найти сумму отрицательных, количество положительных и произведение не нулевых элементов. P.S. я с таким не сталкивался но возможно ли выполнить все эти действия из задачи в одной программе?

Решение задачи: «В одномерном массиве найти сумму отрицательных, количество положительных и произведение не нулевых элементов»

textual
Листинг программы
a:array[0..15] of integer;

Объяснение кода листинга программы

В данном коде объявляется одномерный массив из 16 элементов типа integer.

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы