Предмет: Информатика,
автор: nikitosik388
Разработать процедуры для решения следующей задачи: заменить все отрицательные элементы массива на целую часть среднего арифметического элементов одномерного массива. В подпрограмме-процедуре заполнить массив с клавиатуры, размерность запрашивать при заполнении, а в подпрограмме-процедуре выполнить замену элементов массива. ОЧЕНЬ НУЖНО ПОЖАЛУСТА ПОМОГИТЕ !!!!!!!!!
Ответы
Автор ответа:
0
// 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.
Приложения:
Интересные вопросы
Предмет: Русский язык,
автор: violetta2007
Предмет: Русский язык,
автор: marinochka1603
Предмет: Русский язык,
автор: YDanil
Предмет: Математика,
автор: dashavologina
Предмет: История,
автор: Katerinka006