Делал так:
program bat12;
uses crt;
var A: array [1..10] of integer;
x,y,z,min,n,i: integer;
begin
for i:=1 to 10 do begin
write('A[',i,']=');
read(A[i]);
end;
writeln('МАССИВ:');
for i:=1 to 10 do begin
writeln(a[i]:5);
end;
min:=a[1];
for i:=2 to n do
if A[i]<min then min:=A[i];
writeln('МИНИМАЛЬНЫЙ ЭЛЕМЕНТ=',min);
{write('Заменяем мин. элемент на 0');}
if A[i]<min then begin
min:=A[i];
x:=i;
end;
A[x]:=0;
write('Измененный массив=');
for i:=1 to 10 do begin
writeln(a[i]);
end;
end.
Но не могу заменить min на 0... помогите пожалуйста!
Единственное помню как менять просто элементы, здесь не могу никак додуматься!
ПРИМЕР МАССИВ:
5 4 6 (6 меняем на 5, а 5 на 6)
n:=A[3];
A[3]:=A[1];
A[1]:=n;