Ввести одномерный массив из 12 целых чисел с помощью генератора случайных чисел (числа в диапазоне [-10; 10] и заменить отрицательные элементы числом 1 (организовать вывод исходного и полученного в результате замены массивов).

const n=12;

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

i:integer;

begin

write (' Исходный массив: ') ;

for i:=1 to n do

begin

a[i]:=random (21) - 10;

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

end;

writeln;

writeln;

write ('Получённый массив: ') ;

for i:=1 to n do

begin

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

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

end

end.