Question

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

Answer 1

// 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.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

Answer 2

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

Answer 3

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

Answer 4

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