Create a program in an array with N numbers, swap the maximum and minimum values.

min: = a [1];
max: = a [1];
for i: = 1 to n do
begin
if a [i]> max then begin max: = a [i]; imin: = i; end;
if a [i] <min then begin min: = a [i]; imax: = i; end;
end;
buf: = a [imin];
a [imin]: = a [imax];
a [imax]: = buf;
SECOND METHOD FOR EXECUTING THE PROGRAM:
Var
a: array [1..100] of integer;
i, n, imin, imax: byte;
min, max, buf: integer;
Begin
Randomize;
Write (‘number of elements:’);
Readln (n);
For i: = 1 to n do
begin
a [i]: = random (101) -50;
Write (a [i], ”);
end;
Writeln;
For i: = 1 to n do write (a [i], ”);
Readln
End.