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

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