Const n=10; Var a: array [1..n] of integer; i,min: integer; Begin For i:=1 to n do a[i]:=Random(21)-10; writeln ('Исходный массив: '); for i:=1 to n do write (a[i],' '); writeln; min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; writeln ('Минимальный элемент = ',min); for i:=1 to n do if a[i]<0 then a[i]:=a[i]*min; writeln ('Преобразованный массив:'); for i:=1 to n do write (a[i], ' '); end.