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.