Регистрация
Войти
Стать экспертом Правила
Информатика

Составить программу в паскале , которая в массиве из десяти целых чисел считает среднее арифметическое отрицательных.

ОТВЕТЫ



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
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам