1. Дан массив целых чисел. Все отрицательные элементы заменить положительными. 2.…

1) var a: array [1… 3] of integer; b,i: integer; z: real; beginrandomize; for i: =1 to 3 doread (a[i]); for i: =1 to 3 doif a[i]<0 then a[i]: =(-1)*a[i]; for i: =1 to 3 dowrite (',a[i]); end. 2) var a: array [1… 3] of integer; b,i: integer; z: real; beginrandomize; for i: =1 to 3 doread (a[i]); for i: =1 to 3 doif a[i] mod 2=0 then a[i]: =a[i]*a[i]else a[i]: =a[i]/2; for i: =1 to 3 dowrite (',a[i]); end.