program zad1; 

uses crt; 

const n=10; 

var 

tab:array [1..n] of integer; 

i,max,min,poz_min,poz_max:integer; 

begin 

randomize; 

 

for i:=1 to n do 

begin 

tab[i]:=random(10); 

writeln(tab[i]); 

end; 

 

max:=tab[1]; 

min:=tab[1]; 

 

for i:=2 to n do 

begin 

if max<tab[i] then 

begin 

max:=tab[i]; 

poz_max:=i; 

end; 

 

if min>tab[i] then 

begin 

min:=tab[i]; 

poz_min:=i; 

end; 

end; 

 

i:=tab[poz_min]; 

tab[poz_min]:=tab[poz_max]; 

tab[poz_max]:=i; 

writeln('Po zamianie'); 

 

for i:=1 to n do writeln (tab[i]); 

 

readln; 

end.