Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от –1000 до 1000. Опишите алгоритм, который находит и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 5. Если таких чисел нет, нужно вывести сообщение ″Таких чисел нет″. На языке паскаль. Даю 15 баллов

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(30,-1000,1000); a.Println;
  var m:=a.Where(t->Abs(t) mod 10=5).DefaultIfEmpty.Average;
  if m=0 then Writeln('Таких чисел нет')
  else Writeln('Искомое среднее равно ',m)
end.

Пример
833 -831 -175 -431 -34 796 266 637 -888 779 835 739 -28 127 346 734 -820 -906 -71 -334 680 -774 978 431 574 -666 -508 -360 990 589
Искомое среднее равно 330