1)Составьте программу на языке Pascal, в которой пользователь вводит с клавиатуры значения элементов массива, а программа выводит значения элементов массива с противоположным знаком.

2)Составьте программу на языке Pascal, в которой пользователь вводит с клавиатуры значения элементов массива, а программа выводит значения первой половины элементов увеличенных в 2 раза, а второй половины элементом уменьшенных в 2 раза.

1)varmas: array [1..10] of integer;i:integer;beginfor i:=1 to 10 doread(mas[i]);for i:=1 to 10 do beginif mas[i]<0 thenwrite(abs(mas[i]),' ')elsewrite(-mas[i],' ');end;end.2)varmas: array [1..10] of real;i:integer;beginfor i:=1 to 10 doread(mas[i]);for i:=1 to 5 dowrite(mas[i]*2,' ');for i:=6 to 10 dowrite(mas[i]/2,' ');end.