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

690 интересует 22 не интересует
2.9m просмотров

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


спросил от в категории Информатика
1 Ответ
195 интересует 6 не интересует
ответил от Одаренный (1.6k баллов)

// 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.

...