Задания
Версия для печати и копирования в MS WordОпишите на русском языке или на одном из языков программирования алгоритм подсчета произведения всех отрицательных элементов заданного целочисленного массива размером 30 элементов, в предположении, что в массиве есть хотя бы один отрицательный элемент.
Решение.
Спрятать критерииvar a:array [1..30] of integer;
i,s:integer;
begin
s:=1;
for i:=1 to 30 do begin
readln(a[i]);
if a[i]<0 then s:=s*a[i];
end;
write(s);
end.

