Измени его и сделай из него общеотрицательное, частноутвердильное и частноотрицательное суждения. "каждый солдат мечтает стать генералом"

1. каждый солдат не мечтает стать генералом. 2. некоторые из солдат мечтают стать генералами. 3. некоторые из солдат не мечтают стать генералами.

Const n=8; var x : array[1..n] of real;     i : integer; min : real; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   x[i]: =20*random-10;   write(x[i]: 6: 2,' ');         end;   writeln; min: =x[1]; for i: =2 to n do   if x[i] < min then min: =x[i]; writeln('min=',min: 6: 2); for i: =1 to n do   if x[i]< 0 then x[i]: =min; writeln('измененный массив: '); for i: =1 to n do write(x[i]: 6: 2,' '); end. пример: исходный массив:   -7.84   -9.97   7.00   -8.26   -7.71   -3.88   7.59   -2.32  min= -9.97 измененный массив:   -9.97   -9.97   7.00   -9.97   -9.97   -9.97   7.59   -9.97 

Var     i, n, summ: integer;   mas: array[1..20] of integer; begin   n : = 0;   summ : = 0;     while n < = 0 do   begin       writeln('enter n (1-20) = ');       read(n);   end;   for i : = 1 to n do   begin         read(mas[i]);         if mas[i] > i then             summ : = summ + mas[i]   end; writeln('sum = ', summ); end.