Pascal!

Найти среднее арифметическое отрицательных элементов массива. Заменить на него минимальный элемент.

Var a: array[1 ... 10] of integer;

var i, col, ans:integer;

begin

ans:=0;

col:=0;

for i:=1 to 10 do

begin

readln (a[i]);

if a[i] < 0 then

begin

col:=col+1;

ans:=ans+a[i];

end;

end;

writeln (ans/col);

end.