Написать программы. 1 в масиве найти максимальный и минимальный элементы, и поменять их местами 2 в массиве найте минимальный и максимальный элементы, вычислить из разность 3 найти сумму тех элементов массива, которые одновреммента стоят на четных местах и имеют отрицательное значение.
var
i, n, min, max, min_i, max_i: integer;
arr: array[integer] of integer;
begin
readln(n);
read(arr[0]);
min := arr[0];
for i := 1 to n-1 do
begin
read(arr[i]);
if arr[i] < min then
begin
min := arr[i];
min_i := i;
end;
end;
max := min;
for i := 0 to n-1 do
if arr[i] > max then
begin
max := arr[i];
max_i := i;
end;
arr[min_i] := max;
arr[max_i] := min;
end.