Разработать процедуры для решения следующей задачи: заменить все отрицательные элементы...

Question

Разработать процедуры для решения следующей задачи: заменить все отрицательные элементы массива на целую часть среднего арифметического элементов одномерного массива. В подпрограмме-процедуре заполнить массив с клавиатуры, размерность запрашивать при заполнении, а в подпрограмме-процедуре выполнить замену элементов массива. ОЧЕНЬ НУЖНО ПОЖАЛУСТА ПОМОГИТЕ !!!!!!!!!

Answer 1

// PascalABC.NET

procedure ЗаполнитьМассив(var a: array of integer);

begin

 var n := ReadInteger('n =');

 a := ReadArrInteger('Вводите элементы:', n)

end;

procedure ЗаменитьЭлементы(a: array of integer);

begin

 var avg := Trunc(a.Average);

 a.Transform(p -> p < 0 ? avg : p)

end;

 

begin

 var a: array of integer;

 ЗаполнитьМассив(a);

 ЗаменитьЭлементы(a);

 a.Print

end.