Дан вектор В[1:25]. а) найти произведение элементов в диапазоне [-3,3] и сумму положительных элементов. б) удалить минимальный элемент вектора. в) заменить максимальный элемент вектора среднеарифметическим значением последних 15 элементов. г) поменять местами максимальные элементы из первых 10 и последних десяти элементов вектора — Pascal(Паскаль)

var a:array[1..25] of integer;p,s,sr,i,max1,max2,max,t,t1,t2:integer;
begin
randomize;
for i:=1 to 25 do
a[i]:=random(10)-5;
writeln('Nacalinii');
for i:=1 to 25 do
write(a[i],' ');
writeln;
p:=1;s:=0;
for i:=1 to 25 do
begin
if (a[i]>-3) and (a[i]<3) then p:=p*a[i]; {1 punkt}
if a[i]>0 then s:=s+a[i];
 
if i=1 then max:=a[i] else if a[i]<max then begin max:=a[i]; t:=i;end;{3 punkt}
if i>=10 then sr:=sr+a[i];
 
if i=1 then max1:=a[i] else if i<=10 then if a[i]>max1 then begin max1:=a[i]; t1:=i;end; {4 punkt}
if i=16 then max2:=a[i] else if i>16 then if a[i]>max2 then begin max2:=a[i]; t2:=i;end;
end;
writeln('suma=',s);
writeln('proizvedenie=',p);
writeln('pervoie izmenenie');
a[t]:=sr/15;
for i:=1 to 25 do
write(a[i],' ');
writeln;
a[t1]:=max2;
a[t2]:=max1;
writeln('vtoroie izmenenie');
a[t]:=sr/15;
for i:=1 to 25 do
write(a[i],' ');
writeln;
readln;
end.