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

var a: array[1..10] of integer;var i, col, ans:integer;beginans:=0;col:=0;for i:=1 to 10 do  begin  readln(a[i]); if a[i] < 0 then begincol:=col+1;ans:=ans+a[i]; end;end; writeln(ans/col);end.