4. составьте программу подсчитывающую количество - вопрос №105170184 от tim27012003 16.04.2020 12:47

Question

Информатика: 4. составьте программу подсчитывающую количество элементов массива меньших 50. массив составить из случайных чисел от 10 до 110 5. составьте программу вывода на экран элементов одномерного целочисленного массива в(10), кратных 3. массив составить из случайныцх чисел от 10 до 60. 6. составьте программу вычисления произведения отрицателтьных элементов одномерного массива а(8) составленного из случайных чисел в интервале от -30 до 30

tim27012003 · Answer

===== PascalABC.NET =====begin  // 1  var n := ReadInteger( Введи длину массива: );  var a := ArrRandom(n, 10, 100);  a.Println.Count(p - p 50).Println;  // 2  var b := ArrRandom(10, 10, 60);  b.Println.Where(p - p mod 3 = 0).Println;  // 3  var c := ArrRandom(8, -30, 30);  c.Println.Where(p - p 0).Product.Println;end....