<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
a.Transform(t->t<0?t*20:t); a.Println
end.
<u>Пример</u>
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
//////////////////////////////////
Возможность исправления искаженных информационных данных, повышенная помехоустойчивость благодаря специальным методам кодирования информационных данных, возможность сжатия информационных данных, возможность передачи информационных данных по одному каналу от различных источников
Описание:
использовать Чертежник
алг
нач
сместиться на вектор(4,4)
опустить перо
сместиться на вектор(4,0)
сместиться на вектор(0,4)
сместиться на вектор(-4,0)
сместиться на вектор(0,-4)
сместиться на вектор(2,0)
сместиться на вектор(2,2)
сместиться на вектор(-2,2)
сместиться на вектор(-2,-2)
сместиться на вектор(2,-2)
сместиться на вектор(-1,1)
сместиться на вектор(2,0)
сместиться на вектор(0,2)
сместиться на вектор(-2,0)
сместиться на вектор(0,-2)
сместиться на вектор(1,0)
сместиться на вектор(1,1)
сместиться на вектор(-1,1)
сместиться на вектор(-1,-1)
сместиться на вектор(1,-1)
<span>кон
Рисунок увидите сами при выполнении программы</span>
Ну наверное на монитор.
Еще можно через принтер.