дан массив. Поменять местами первый и минимальный элемент. Если элементов с мин. значением несколько, то в обмене должен учавствовать последний из них.
вот как у меня получилось решить эту задачу
var a: array [1..30] of integer;
i,n,min,imin: integer;
begin
writeln ('ввод кол-ва элементов массива');
readln (n);
writeln ('ввод элементы массива');
for:=1 to n do
readln (a[i]);
writeln;
min:=a[1];
imin:=1;
for:i=2 to n do
if a[i]<min then
min:=a[1];
imin:=i;
a [imin]:=a[1];
a[1]:=min;
for:=1 to n do
writeln ('a[i]=');
readln
end.
но к сожалению программа не выполняет условие в ответе у меня появляется:
а[i]:=
а[i]:=
а[i]:=
помогите, разобраться!