Предмет: Информатика,
автор: nt799273
Даю 100 баллов
Помогите решить 2 задания по информатике. с кратким решением.
Задание №1
Одномерный массив на 10 элементов формируется через Random(50). Распечатать массив.
Вычислить средне-арифметическое элементов массива, которые попадают в интервал от 20 до 30.
Задание №2
Одномерный массив на 20 элементов формируется через Random(10). Распечатать массив.
Подсчитать количество элементов массива, значения которых совпадает с их номером (индексом).
Ответы
Автор ответа:
1
PascalABC.NET
Задание 1:
- begin
- var a := ArrGen(10, c -> Random(50)).Println;
- Println(a.Where(c -> c in 10..20).Average(c -> c));
- end.
Задание 2:
- begin
- var a := ArrGen(20, c -> Random(10)).Println;
- Println(a.Where((c, i) -> c = i).Count);
- end.
Примеры работ:
Приложения:
nt799273:
а что мне в ответ записать?
Он выкидывает разные числа каждый раз
Похожие вопросы
Предмет: Русский язык,
автор: Superponi20
Предмет: Русский язык,
автор: zalalova2015
Предмет: Английский язык,
автор: MaryCrystal
Предмет: Биология,
автор: nacvai
Предмет: Математика,
автор: Аноним