Дан целочисленный массив заданный датчиком случайных чисел в интервале (100). Требуется умножить отрицательные значения элементов этого массива на 20.

begin
  var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
  a.Transform(t->t<0?t*20:t); a.Println
end.


n= 13
-82 6 99 -23 71 -92 50 -70 -82 37 -10 -97 92
-1640 6 99 -460 71 -1840 50 -1400 -1640 37 -200 -1940 92