Новые информационные технологии и системы их автоматизации? ​

1. современное решение // pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   var min: =a.min;   a.transform(x-> x< 0? x*min: x); a.println end. пример n= 15 -34 7 0 -48 4 42 35 14 -47 6 -29 43 46 40 -18 1632 7 0 2304 4 42 35 14 2256 6 1392 43 46 40 864 2. популярное до сих пор в школах решение на turbopascal 7.01 (1983г.) uses crt; const   nn=100; var   i,n,min: integer;   a: array[1..nn] of integer; begin   clrscr;   randomize;   write('n='); read(n);   min: =100;   for i: =1 to n do begin       a[i]: =random(101)-50;       write(a[i],' ');       if a[i]< min then min: =a[i]       end;   writeln;   for i: =1 to n do       if a[i]< 0 then a[i]: =a[i]*min;   for i: =1 to n do       write(a[i],' ');   writeln;   readkey end.