1.
const n=10; 
var a:array[1..n] of integer;
i,s,k:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i],'  ');
 end;
writeln;
s:=0; k:=0;
for i:=1 to n do
 if a[i]>0 then begin s:=s+a[i]; k:=k+1; end;
if k>=0 then writeln('Среднее арифметическое положительных элементов = ',s/k:5:2)
        else writeln('В массиве нет положительных элементов');
end.

Пример:
Исходный массив:
-2  0  -10  1  5  -2  2  -6  7  9  
Среднее арифметическое положительных элементов =  4.80

2.
const n=10; 
var a:array[1..n] of integer;
i,max,k,s:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i],'  ');
 end;
writeln;
max:=a[1]; k:=1;
for i:=2 to n do
 if a[i]>max then begin max:=a[i]; k:=i; end;
writeln('max = ',max);
s:=0;
for i:=k+1 to n do s:=s+a[i];
writeln('Сумма элементов после максимального элемента = ',s);
end.

Пример:
Исходный массив:
5  5  -2  -2  3  -1  -7  9  -1  1  
max = 9
Сумма элементов после максимального элемента = 0

3.
const n=10; 
var a:array[1..n] of integer;
i,min,k,p:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i],'  ');
 end;
writeln;
min:=a[1]; k:=1;
for i:=2 to n do
 if a[i]<min then begin min:=a[i]; k:=i; end;
writeln('min = ',min);
p:=1;
for i:=1 to k-1 do p:=p*a[i];
writeln('Произведение элементов, расположенных до минимального элемента = ',p);
end.

Пример:
Исходный массив:
9  9  4  -5  -9  4  2  -8  9  7  
min = -9
Произведение элементов, расположенных до минимального элемента = -1620

4.
const n=10; 
var a:array[1..n] of integer;
i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
for i:=1 to n do
 if a[i]<0 then a[i]:=-a[i];
writeln('Измененный массив:');
for i:=1 to n do write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
  -9  10   7  -2   6   6 -10  -8  -9  -2
Измененный массив:
   9  10   7   2   6   6  10   8   9   2