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.