1) Поменять местами минимальный четный элемент с последним.

2)На место максимального отрицательного элемента поместить сумму элементов кратных 3. (в программе Паскаль) РЕБЯТКИ помогите)))))))

1) program z1;uses crt;var a: array[1..100] of integer;n,i,x,max,min,k:integer;beginrandomize;readln(n);for i:=1 to n do begin a[i]:=random(100); write(a[i]:4); end;writeln;min:=a[2];for i:=3 to n do begin if a[i] mod 2=0 then if a[i]<min then begin min:=a[i]; k:=i; end; end;x:=a[k];a[k]:=a[n];a[n]:=x;for i:=1 to n dowrite(a[i]:4);max:=a[1];end.