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

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]