Question

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

Answer 1

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.

Answer 2

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