Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все…

var mas: array[1… 10] of integer; i: integer; beginrandomize; for i: =1 to 10 dobeginmas[i]: =random (200) -100; write (mas[i]: 4); end; writeln; for i: =1 to 10 dobeginif (mas[i]<0) then mas[i]: =1; write (mas[i]: 4); end; writeln; end.