PrvanНужна помощь в паскале указание:для каждой задачи создайте алгоритм и программу. заполните двумерный числовой масчив h(5,5) случайными целыми числами в интервале [-7;7]. Выведите значения элементов массива в виде матрицы, причем на каждый элемент отведите 4 позиции. Ответ каждой задачи следует выводить с новой строки и с пояснительным текстом. Кроме того, следует каждый раз производить пвывод массива на экран, если в нем произошли изменения: перестановка, замена, изменение значения элементов и т. д. Задание 1)Найдите произведение положительных элементов первой строки массиваЗадание 2)замените элементы,стоящие в нечетных столицах и имеющих отрицательное значение,на цифру 100Задание 3)создайте новый одномерный массив из элементов, стоящих над главной диагональю
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
##
var h := MatrRandom(5, 5, -7, 7);
h. Println(4);
Print('Произведение положительных элементов первой строки массива равно',
h. Row(0). Where(t -> t > 0). Product)
------------------------
##
var h := MatrRandom(5, 5, -7, 7);
h. Println(4);
h. Transform((v, i, j) -> j. IsEven and (v < 0) ? 100 : v);
Println('Результат замены отрицательных элементов в нечетных столбцах');
h. Println(4)
---------------------
##
var h := MatrRandom(5, 5, -7, 7);
h. Println(4);
var a := h. ElementsWithIndices. Where(t -> t[2] > t[1]). Select(t -> t[0]). ToArray;
Println('Массив из элементов, стоящих над главной диагональю');
a. Print
49
prematureЧтобы ответить необходимо зарегистрироваться.
