Дан массив x(n).найти наименьший элемент если он отрицательный, заменить все элементы массива на их модули

1. современная версия программы // pascalabc.net 3.1, сборка 1179 от 29.02.2016 begin   var n: =readinteger('n=');   var x: =arrrandom(n,-5,20); x.println;   if x.min< 0 then x: =x.select(e-> abs(;   x.println end. тестовое решение n= 15 14 18 4 17 9 6 13 13 12 -1 13 5 11 -2 14 14 18 4 17 9 6 13 13 12 1 13 5 11 2 14 2. школьная версия программы // pascalabc.net 3.1, сборка 1179 от 29.02.2016 const   nn=50; var   x: array[1..nn] of integer;   i,m,n: integer; begin   write('n= '); read(n);   randomize;   x[1]: =random(26)-5; m: =x[1];   write(x[1],' ');   for i: =2 to n do begin       x[i]: =random(26)-5;       if x[i]< m then m: =x[i];       write(x[i],' ')       end;   writeln;   if m< 0 then begin       for i: =1 to n do begin           x[i]: =abs(x[i]);           write(x[i],' ')           end;       writeln       end end. тестовое решение n= 15 9 3 14 4 9 2 1 6 9 19 20 8 14 -3 9 9 3 14 4 9 2 1 6 9 19 20 8 14 3 9 подтверждает довольно популярное мнение о том, что в школьной информатике многое давно пора зачем учить писать длинно и сложно?

определяет угол или скорость поворота робота