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

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

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

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

textual
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. {конец основной программы}
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.167 из 5


СДЕЛАЙТЕ РЕПОСТ