
AlexandraSm
5 год назад
Составить программу в паскале , которая в массиве из десяти целых чисел считает среднее арифметическое отрицательных.
ОТВЕТЫ

Кирилл
Oct 24, 2020
begin
var a:=ReadArrInteger('Вводите:',10);
Writeln('Ср.арифм. отрицательных чисел ',a.Where(x->x<0).Average)
end.
Вводите: 5 -3 2 8 11 21 -42 16 0 5
Ср.арифм. отрицательных чисел -22.5
109