Напишите решение задачи через паскаль.

1. Массив из 10 целых чисел из промежутка [10,20] задается с помощью гениратора случайных чисел. Вывести полученный массив в строку. Затем увеличить каждый элемент на 5. В следующей строке вывести полученный массив.

2. Массив из 6 отрицательных и положительных чисел вводится в области описания констант. Вывести исходный массив. Отрицательные элементы массива умножить на - 1. Вывести полученный массив в следующей строке.

1.

Program enot;

Var a: array[1 ... 10] of integer;

i, k, j: integer;

begin

for i: = 1 to 10 do

a[i]: = random (11) + 10;

for i: = 1 to 10 do

write (a[i]:4) ;

writeln () ;

for i: = 1 to 10 do

begin

a[i]:=a[i]+5;

write (a[i]:4) ;

end;

end.

2. Program enot;

Const a:array[1 ... 6] of integer = (3,-5,7,4,8,-2) ;

Var i: integer;

b: array [1 ... 6] of integer;

begin

for i: = 1 to 6 do

write (a[i]:4) ;

writeln () ;

for i: = 1 to 6 do begin

b[i]:=a[i];

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

write (b[i]:4) ;

end;

end.