Найти произведение всех элементов массива целых чисел, меньших 0 - Turbo Pascal

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

Найти произведение всех элементов массива целых чисел, меньших 0. Размерность массива 10. Заполнение массива осуществить случайными числами от -20 до 30. Помогите, ребят. Сам пытался, но не получилось.

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

Листинг программы

Program massiv1;
{раздел описаний}
Var
i:integer; {Индекс массива}
s:integer; {произведение }
a:array[1..10] of integer; {задание массива }
Begin {начало основной программы}
{вывод заголовка программы}
Writeln('Программа для нахождения произведения целых чисел массива, меньших нуля');
Writeln('Выполнил: студент гр. Э-32 Антропов Н.Н');
s:=1; {начальное произведение}
writeln('элементы массива');
randomize; {процедура }
for i:=1 to 10 do {цикл со счетчиком}
begin {начало подпрограммы }
a[i]:=random (50)-20; {функция задания случайных чисел в диапазоне от ( -20) до 30}
write(' ',a[i]); {вывод массива на экран}
{условие }
if{если} a[i]<0{элементы массива, которые меньше нуля } then {тогда}
s:=a[i]*s; {произведение элементов, меньших нуля }
end; {конец подпрограммы}
writeln;{отступ строки}
writeln('произведение=',s); {Вывод на экран}
Readln; {задержка экрана}
End. {конец основной программы}

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач различных уровней сложности. В данном случае, программа выполняет следующие действия:

Выводит заголовок программы и информацию о ее выполнении.
Инициализирует переменную s значением 1, которая будет использоваться для хранения произведения элементов массива.
Выводит сообщение элементы массива.
Использует процедуру randomize для инициализации генератора случайных чисел.
Запускает цикл со счетчиком, который будет выполняться 10 раз.
Внутри цикла, задает случайное значение каждому элементу массива a в диапазоне от -20 до 30.
Выводит каждый элемент массива на экран.
Проверяет условие, что каждый элемент массива a меньше нуля.
Если условие выполняется, то перемножает текущий элемент массива a с переменной s, которая будет хранить произведение.
После завершения цикла, выводит на экран произведение.
Завершает программу. Таким образом, данный код предназначен для нахождения произведения всех элементов массива целых чисел, меньших 0.