Question

Помогите пожалуйста. Pascal

Answer 1

const

 n = 10;

var

 V: array [1..n] of integer;

 min, i: integer;

begin

 for i := 1 to n do

   begin

     v[i] := random(31) - 10;

     write(v[i]:4);

   end;

 writeln;

 min := v[1];

 for i := 2 to n do

   if v[i] < min then

     min := v[i];

 for i := 1 to n do

   begin

     if v[i] = min then v[i] := 100;

     write(v[i]:4);

   end;

end.