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

Question

Дан целочисленный массив из 50 элементов. Элементы массива могут принимать значения от –500 до 500. Напишите программу, которая находит и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 3

Помогите плз

Answer 1

PascalABC.NET:

begin
  var a:=ArrRandom(50,-500,500);
  a.Println;
  var k:=a.Where(x->(abs(x) mod 10 = 3)).Count;
  var s:=a.Where(x->(abs(x) mod 10 = 3)).Sum;
  if k=0 then writeln('В массиве нет элементов, оканчивающихся цифрой 3')
  else Writeln('Среднее арифметическое элементов массива, оканчивающихся цифрой 3 = ',s/k);
end.

Пример (для 10 элементов):
450 -159 189 463 262 220 -125 -41 -178 -62
Среднее арифметическое элементов массива, оканчивающихся цифрой 3 = 463