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

var

i, n: integer; / / объявляем переменные целочисленного типа.

arr: array [1 ... 10] of integer; / / объявляем массив, размерностью 10.

s : string; / / объявляем переменную строкового типа.

begin

n : = 1; / / нужно, чтобы произведение не было нулевым.

for i : = 1 to 10 do / / начало цикла.

begin

arr[i] : = random (-20, 20); / / заполняем элемент массива числом из диапазона - 20; 20.

s : = s + inttostr (arr[i]) + ' '; / / записываем массив в одну строку.

if (arr[i] < 0) then n : = n * arr[i]; / / считаем произведение отрицательных элементов.

end;

writeln ('Исходный массив: ', s); / / вывод исходного массива на экран.

writeln ('Произведение отрицательных массива равно: ', n); / / вывод результата на экран.

end.