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

Program n1;
Uses Crt;
var a:array[1..10] of integer;
 s,i: integer;
begin
for i:=1 to 10 do  begin
a[i]:=random(11)-5;
writeln(a[i]:4);
end;           
s:=1;
for i:=1 to 10 do
if (a[i]<0) then s:=s*a[i];
writeln(Proizvedenie vseh otricat chisel: , s);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.