Conjujurus
4 год назад
Одномерные массивы. Дан массив X из 20 целых чисел. Найти количество и сумму тех элементов данного массива, значения которых больше среднего арифметического значения элементов массива. Требования к программе:Обязательно описание переменных;Значение элементов массива ввести с клавиатуры.
ОТВЕТЫ
Pentti Mika
Oct 24, 2020
begin
var a:=ReadArrInteger('Введите 20 целых чисел: ',20);
var m:=a.Average;
var p:=a.Where(n->n>m);
Writeln('n=',p.Count,', S=',p.Sum)
end.
Введите 20 целых чисел: 39 -34 15 13 28 26 28 -4 39 -48 15 -40 14 10 -16 -8 -5 26 -24 8
n=12, S=261
318
Смежные вопросы:
