//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(ReadInteger('x ='), -17, 17);
a.Println;
a.Transform(x -> -x);
a.Println;
end.
Лужа-ложа-кожа-кора-гора-горе
Паук-парк-пара-фара
Это ж алиэкспресс. Но вообще и у моего друга так. Возможно там внутри что-то случилось допустим: провода там перегорели или что-то похожее
Пользуется в тех случаях, когда некоторое однообразное действие надо повторить определенное количество раз. Особенно, если это количество достаточно велико. Бывают же такие задачи, когда необходимо, например, вычислить сумму каких-либо величин, каждая из которых вычисляется по формуле. Ведь если непосредственно вычислять сумму 1 + 2 + 3 + ... + 1000, то программа разрастется до невообразимых масштабов.