Предмет: Информатика,
автор: MaKcONi4
Помогите пожалуйста! Очень прошу!
Массив из 15 элементов заполнить целыми случайными числами в диапазоне от 0 до 20. Найти:
a) Количество нечетных элементов массива;
b) Сумму элементов массива кратных 3 или 5 и их количество;
c) Сумму отрицательных элементов массива, располагающихся на чётных позициях.
MaKcONi4:
эхх, ладно... Пойду найду уроки по массивам
спасибо
а где эту книгу найти?
спасибо огромное
Ответы
Автор ответа:
1
===== PascalABC.NET =====
begin
var a := ArrRandom(15, 0 , 20); // глупый диапазон c) 0 всегда
a. Println;
a.Count(p -> p.IsOdd).Println; // a)
var s := a.Where(p -> (p mod 3 =0) or (p mod 5 = 0));
Println('Сумма', s.Sum, ' Количество', s.Count); // b)
a[1::2].Where(p -> p < 0).Sum.Println // c
end.
Приложения:
Интересные вопросы
Предмет: Русский язык,
автор: kurbanova7893
Предмет: Українська мова,
автор: pkati6506
Предмет: Английский язык,
автор: yuraruzak473
Предмет: Химия,
автор: Meelp051009
Предмет: Алгебра,
автор: Арсен4566