Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от –1000 до 1000. Опишите алгоритм, который находит и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 5. Если таких чисел нет, нужно вывести сообщение ″Таких чисел нет″. На языке паскаль. Даю 15 баллов
Ответы
Ответ дал:
0
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
Внимание! Если программа не работает, обновите версию!
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
Похожие вопросы
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад