Положительные элементы заменить на 1, а отрицательные на - 1

var a: array [1..30] of integer;beginfor var i:=1 to 30 dobegin a[i]:=random(-30,30);end;println(a);for var i:=1 to 30 dobeginif (a[i]>0) thena[i]:=1elsea[i]:=-1;end;print(a);end.