program praktika2; uses crt;{раздел описания модулей} var {раздел описания переменных} km,kz,i,n,s,min,i_min,r,z: integer; a: array[1..100] of integer; begin{начало тела программы} repeat clrscr;{очистка экрана} writeln('программа для переставления мин. элемента и элемента введеного с клавиатуры'); repeat{ввод количества элементов массива с проверкой} writeln('введите n - кол-во элементов массива'); readln(n); until (n>1) and (n<=100); for i:= 1 to n do{цикл с параметром (ввод элементов массива} begin writeln ('введите элементы массива'); readln(a[i]); end; writeln ('исходный массив'); for i:= 1 to n do write(a[i]);{цикл с параметром(вывод исходного массива} writeln; writeln('введите элемент для замены'); readln(z); min:=a[1];{присвоение переменной min значения первого элемента} i_min:=1;{присвоение переменнойi_min индекса первого элемента} r:=z;{присвоение переменной r значения числа введенного с клавиатуры(n)} for i:= 2 to n do{цикл с параметром(нахождение минимального элемента)} begin if min>a[i] then begin min:=a[i]; i_min:=i; end; end; s:=a[i_min];{} for i:=1 to n do if a[i]=r then a[i]:=s; a[i_min]:=r; r:=s; writeln('вывод нового массива'); for i:=1 to n do write(a[i]); writeln; writeln('для выхода из цикла нажмите ESC, для продолжения - любую клавишу.'); until readkey=#27 end.{конец программы}