[тигрёнок]

да здравствует программирование...

program z_array;
uses crt;
var a:array[1..100] of integer;
n,i,min,max:byte;
temp:integer;
begin
clrscr;
writeln('Введите размерность массива');
readln(n);
writeln('Введите элементы массива');
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
writeln('Данный массив');
for i:=1 to n do
write(a[i],' ');
min:=1;
max:=1;
for i:=2 to n do
begin
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
temp:= a[min];
a[min]:=a[max];
a[max]:=temp;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i],' ');
readln;
end.