Помогите написать проги
1. замените все элементы массива целых чисел С(n) на противоположные по знаку
2. найти произведение элементов массива целых чисел А(n), меньших 3
3. в линейный массив вещественных чисел на К-тое место вставить элемент, равный среднему арифметическому элементов массива

2.var a:array[1..100] of integer;

1.var a:array[1..100] of integer;n,s,i:integer;beginwrite('Количество элементов=');readln(n);for i:=1 to n do beginreadln(a[i]);end;for i:=1 to n do beginif a[i]>0 then a[i]:=-a[i]else a[i]:=abs(a[i]);end;for i:=1 to n do beginwrite(a[i]:3);end;end.