Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от...

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