составьте программку, которая сформировывает массив из 15 случайных целых чисел, принадлежащих

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(15, -22, 33);

 a.Println;

 a.Transform(t -gt; t gt; 0 ? 1 : t);

 a.Println

end.

Пример

-16 7 14 8 18 7 -5 -3 -18 26 -3 -8 31 13 -1

-16 1 1 1 1 1 -5 -3 -18 1 -3 -8 1 1 -1

const n=15;

var i:integer;

a:array[1..n] of integer;

begin

for i:=1 to n do

begin

a[i]:=random(56)-22;

write(a[i]:3,' ')

end;

writeln;

for i:=1 to n do

begin

if a[i]gt;0 then a[i]:=1;

write(a[i]:3,' ')

end

end.