1.дан массив целых чисел. все отрицательные элементы заменить положительными. 2.дан массив целых чисел.чётные элементы возвести в квадрат остальные разделить пополам

1) 

var a:array [1..3] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 3 do
read(a[i]);
for i:=1 to 3 do
if a[i]<0 then a[i]:=(-1)*a[i];
for i:=1 to 3 do
write(' ',a[i]);
end.

2)

var a:array [1..3] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 3 do
read(a[i]);
for i:=1 to 3 do
if a[i] mod 2 =0 then a[i]:=a[i]*a[i]
else a[i]:=a[i]/2;
for i:=1 to 3 do
write(' ',a[i]);
end.