Нужно решить задачу:
Заменить все положительные элементы целочисленного массива размера 10 на значение min.

Ну ладно если тебе никто не поможет тогда это сделаю я ...

var
 ar:array [1..10] of integer=(-1,8,58,-2,0,-68,55,12,60,-741);
 min,i:integer;
begin
 readln(min);
 for i:=1 to 10 do
  if ar[i]>=0 then ar[i]:=min;
 for i:=1 to 10 do write(ar[i],' ');
end.

Кажется, здесь что-то немного неправильно в строке ar:array [1..10] of integer=(-1,8,58,-2,0,-68,55,12,60,-741); только не пойму, где здесь мелкая ошибочка...

Исправь на

const
ar:array [1..10] of integer=(-1,8,58,-2,0,-68,55,12,60,-741);

То есть, это должно выглядить так:

const
 ar:array [1..10] of integer=(-1,8,58,-2,0,-68,55,12,60,-741);
var
 min,i:integer;
begin
 readln(min);
 for i:=1 to 10 do
  if ar[i]>=0 then ar[i]:=min;
 for i:=1 to 10 do write(ar[i],' ');
end.

Теперь всё понятно.

Спасибо за помощь!