Задан массив из 8 действительных чисел.замените все отрицательные элементы данного массива его минимальным элементом. не нужно сложных решений,простое,для 9 класса.

Const n=8;
var x:array[1..n] of real;
i:integer; min:real;
begin
for i:=1 to n do
 begin
 write('x[',i,']=');
 readln(x[i]);
 end;
min:=x[1];
for i:=2 to n do
  if x[i]<min then min:=x[i];
for i:=1 to n do
  if x[i]<0 then x[i]:=min;
for i:=1 to n do write(x[i],'  ');
writeln;
end.

Class MinNegative{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in);
  double Array[] = new double[9];
  for(int cNum = 1; cNum<Array.length; cNum++){
   Array[cNum] = in.nextLong();
   if(Array[cNum]<Array[0])Array[0] = Array[cNum];
  }
  for(int cNum = 1; cNum<Array.length; cNum++){
   if(Array[cNum]<0)Array[cNum] = Array[0];
   System.out.print(Array[cNum]+" ");
  }
 }
}