Var a:array[1..10] of Integer ;
p,i:integer;
Begin
p:=1;
WriteLn('Массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
if a[i]<0 then p:=p*a[i];
end;
WriteLn;
WriteLn('Произведение отопительных элементов = ',p)
end.
Клавиша Caps Lock включает.
Громкий, тихий, остальные - вкус, цвета, размеры.
Ответ:
1,3,5,7
Объяснение:
Если-не-правильно-извини-но-вроде-так-должно-быть!