uses crt;
var n,i,k,k1,m,min,max:integer;
a:array[1..1000] of integer;
begin
randomize;
read(n);
for i:=1 to n do begin
a[i]:=random(101)-50;
if max if min>a[i] then begin k1:=i; min:=a[i]; end;
write(a[i],' ');
end;
writeln;
m:=a[k];
a[k]:=a[k1];
a[k1]:=m;
for i:=1 to n do
write(a[i],' ');
end.

#include
#include
void main()
{
int i,n;
cout<<"Input size of mas: ;br />cin>>