Замены в массивах - 2 Опции

[mitz]

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

[Bard]

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

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.