Предмет: Информатика,
автор: Аноним
Дан целочисленный массив из 23 элементов. Элементы массива могут принимать значения от 0 до 1000. Опишите алгоритм, который находит и выводит среднее арифметическое всех элементов массива, имеющих нечётное значение. Если таких чисел нет, нужно вывести сообщение ″Таких чисел нет″. Помогите, пж на языке паскаль
Ответы
Автор ответа:
1
PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(23,0,1000); a.Println;
var m:=a.Where(t->t.IsOdd).DefaultIfEmpty.Average;
if m=0 then Writeln('Таких чисел нет')
else Writeln(m)
end.
Пример
112 346 634 445 31 804 163 515 466 780 913 41 666 774 422 99 812 684 31 398 836 356 6
279.75
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(23,0,1000); a.Println;
var m:=a.Where(t->t.IsOdd).DefaultIfEmpty.Average;
if m=0 then Writeln('Таких чисел нет')
else Writeln(m)
end.
Пример
112 346 634 445 31 804 163 515 466 780 913 41 666 774 422 99 812 684 31 398 836 356 6
279.75
Похожие вопросы
Предмет: Английский язык,
автор: sonyakononchenko
Предмет: Алгебра,
автор: nastya202938
Предмет: Алгебра,
автор: Dan666666
Предмет: Математика,
автор: gtyui