1) В числовом одномерном массиве все элементы массива, кратные 3, возвести в куб. В новом массиве найти сумму всех членов массива.

2) В числовом одномерном массиве все элементы массива, большие среднего арифметического, уменьшить в 2 раза и вывести этот массив

Const n=5; var a: array [1 ... n] of integer; k, j: real; i:integer; beginfor i: = 1 to n do begina[i]:=random (101) ; write (a[i],' ') ; end; writeln; for i: = 1 to n do begink: = a[i] mod 3; if k=0 thena[i]:=a[i]*a[i]*a[i]; end; for i: = 1 to n do beginwrite (a[i],' ') ; end; j:=0; writeln; for i: = 1 to n do beginJ:=j+a[i]; end; write (j) ; end.