Массив замена минимума!

[sanek_next]

в массиве а заменить минимум на число К

[Niro]

проверяй, писал прямо в форуме

readln(k);
min:=a[1];
for i:=1 to {размер массива} do
begin
if a[i+1]<a[i] then begin 
                           min:=a[i+1]; 
                           ind:=i+1; 
                         end;
end;
a[ind]:=k;

[Grag]

Niro, признай, что в твоем коде будет ошибка времени выполнения, когда i={размер массива}...
Проверял прямо в форуме, но думаю, что прав...
Так что осознай и исправь!!!

[Niro]

ну размер массива ввожу, не я, и кстати новый вариант проги, тот в любом случае неправильный

readln(k);
min:=a[1];
for i:=1 to {размер массива} do
begin
if a[i]<min then begin
                           min:=a[i];
                           ind:=(i);
                    end;
end;
a[ind]:=k;

[sanek_next]

Спасибо всем)