Se considera tabloul [1,n] de numere intregi distincte n<=100.sa se scrie un program care efectueazaintreschimbarea elementullui maxim elementul minim.

Va rog <3

Răspunsul tău trebuie să aibă cel puțin 20 de caractere.

var 

 a:array[1..100] of integer;
 i,n,min,max,pozmin,pozmax:integer;
 
begin

 read(n);
 writeln;
 
 for i:=1 to n do
  read(a[i]);
  
 min:=a[1];
 max:=a[2];
 
 for i:=1 to n do
  begin
  if a[i]<min then min:=a[i];
  if a[i]>max then max:=a[i];
  end;
  
 for i:=1 to n do 
  begin
  if a[i]=min then pozmin:=i;
  if a[i]=max then pozmax:=i;
  end;
 
 a[pozmin]:=max;
 a[pozmax]:=min;
 writeln;
 
 for i:=1 to n do 
  write(a[i],' ');
 
end.