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.