Question

Нужна в паскале указание:для каждой задачи создайте алгоритм и программу. заполните двумерный числовой масчив h(5,5) случайными целыми числами в интервале [-7;7].Выведите значения элементов массива в виде матрицы, причем на каждый элемент отведите 4 позиции. ответ каждой задачи следует выводить с новой строки и с пояснительным текстом. Кроме того, следует каждый раз производить пвывод массива на экран, если в нем произошли изменения: перестановка, замена, изменение значения элементов и т.д.
Задача 1)Найдите произведение положительных элементов первой строки массива
Задача 2)замените элементы,стоящие в нечетных столицах и имеющих отрицательное значение,на цифру 100
Задача 3)создайте новый одномерный массив из элементов, стоящих над главной диагональю

Answer 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