НУЖНА ПОМОЩЬ В ПАСКАЛЕ Из одномерного числового массива Х длиной m, содержащего нулевые, положительные и отрицательные элементы, сформировать новый массив У, заменив в Х все отрицательные элементы их модулями. Найти произведение ненулевых элементов полученного массива У. Вывести на чистый экран оба массива и полученное произведение.

Пример:

Введите размер массива: 50 4 -1 0 -1 0 4 1 0 1 Произведение: 4

Вы с integer поаккуратнее в ТурбоПаскаль, там диапазон [-32768;32767], может при умножении не хватить

Слодно после 3.3 по обычному писать, хочеться что-то добавить из новенького, а нельзя()

Вот и мне противно к нему возвращаться)