1 составьте программу для вычисления суммы массива, - вопрос №103559251 от dgfhdhdj95 05.09.2022 00:41

Question

Информатика: 1 составьте программу для вычисления суммы массива, состоящего из пятнадцати элементов, значения которых изменяются в диапазоне от 0 до 500 (значения элементов массива генерируются случайным образом и также выводятся на экран) 2 составьте программу для нахождения наименьшего элемента массива, состоящего из двадцати элементов, значения которых изменяются в диапазоне от 0 до 200 (значения элементов массива генерируются случайным образом и также выводятся на экран) 3 составьте программу для подсчёта

dgfhdhdj95 · Answer

===== PascalABC.NET =====begin  // 1  var a := ArrRandom(15, 0, 500);  a.Println;  Println( Сумма элементов равна , a.Sum);  // 2  var b := ArrRandom(20, 0, 200);  b.Println;  var i := b.IndexMin;  Println( Наименьший элемент номер , i + 1,       имеет значение , b[i]);  // 3  var c := ArrRandom(10, 0, 100);  c.Println;  Println( Количество элементов кратных трем равно ,      c.Count(p - p mod 3 = 0))end....