Поменять местами минимальный и первый элементы массива.

program a1;   var y: array[1..14] of integer; k,s1,s2: byte; miny,maxy,m: integer;   begin  writeln('vvedite massiv y: '); {просим ввести массив}  for k: =1 to 14 do read(y[k]); {записываем массив}  s1: =0; s2: =0; {счётчики на 0}  miny: =y[1]; {присваиваем первому значению }  for k: =2 to 14 do begin if y[k] < miny then degin miny: =y[k]; s1: =s1+1; end; {если есть меньше, то присваиваем}  maxy: =y[1]; {присваиваем второму значению > < }  for k: =2 to 14 do begin if y[k] > maxy then degin maxy: =y[k]; s2: =s2+1; end; {если есть больше, то присваиваем}  m: =y[s1]; {используя переменную m меняем местами элементы}  y[s1]: =y[s2];   y[s2]: =m;   writeln('novyi massiv: ');   for k: =1 to 14 do write(y[k],' '); {выводим новый массив}  readln  end.

операционная система, прикладные программы..