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

beginvar a:=arrRandom(readln(n=),-100,100); a.println;a.select(t->t<0?t*20:t).println;end.))))Не глядя

Не гладя - нельзя. Тут условие не совсем корректное "Требуется умножить отрицательные значения элементов этого массива на 20. " - непонятно, то ли надо изменить значения элементов текущего массива, то ли новый сформировать, то ли просто вывести такие значения. Я исходил из первого варианта, написали вариант с третьим. Только забыли n= заключить в одинарные кавычки.

beginvar a:=arrRandom(readln('n='),-100,100); a.println;a.select(t->t<0?t*20:t).println;end.

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;  a.Transform(t->t<0?t*20:t); a.Printlnend.Пример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