решить 2 задания по информатике. с кратким решением. - вопрос №1313498521 от polli54 04.06.2023 23:06

Question

Информатика: решить 2 задания по информатике. с кратким решением. Задание №1 Одномерный массив на 10 элементов формируется через Random(50). Распечатать массив. Вычислить средне-арифметическое элементов массива, которые попадают в интервал от 20 до 30. Задание №2 Одномерный массив на 20 элементов формируется через Random(10). Распечатать массив. Подсчитать количество элементов массива, значения которых совпадает с их номером (индексом).

polli54 · Answer

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.Примеры работ:
решить 2 задания по информатике. с кратким решением. Задание №1 Одномерный массив на 10 элементов ф

решить 2 задания по информатике. с кратким решением. Задание №1 Одномерный массив на 10 элементов ф