Question

[70б] Матрица M [5,5] Заполнить исходную матрицу случайными числами из диапазона от -50 до 50. Вывести на экран.В одномерный массив F переписать элементы верхней треугольной. Вывести полученный массив на экран и найти в нём и найти min и max по модулю элементы.

Answer 1

===== PascalABC.NET =====

function MinMax(a: array of integer): (integer, integer);

begin

 var min := Abs(a[0]);

 var max := min;

 for var i := 1 to a.High do

   if Abs(a[i]) < min then

     min := Abs(a[i])

   else if Abs(a[i]) > max then

     max := Abs(a[i]);

 Result := (min, max)

end;

begin

 var M := MatrRandom(5, 5, -50, 50);

 M.Println(4);

 var F := M.ElementsWithIndices

   .Where(p -> p[2] >= p[1])

   .Select(p -> p[0])

 .ToArray;

 F.Println;

 var r := MinMax(F);

 Println('Min=', r[0], ' max=', r[1])

end.

Answer 2

Хорошо! Вот Python код, который реализует вашу задачу:

pythonCopy code
import random

# Создание матрицы M и заполнение случайными числами
M = [[random.randint(-50, 50) for _ in range(5)] for _ in range(5)]

# Вывод исходной матрицы M
print("Исходная матрица M:")
for row in M:
    print(row)

# Переписывание элементов верхней треугольной матрицы в одномерный массив F
F = []
for i in range(5):
    for j in range(i, 5):
        F.append(M[i][j])

# Вывод массива F
print("Массив F:")
print(F)

# Поиск минимального и максимального по модулю элементов в массиве F
min_abs = min(F, key=abs)
max_abs = max(F, key=abs)

# Вывод минимального и максимального элементов по модулю
print("Минимальный элемент по модулю:", min_abs)
print("Максимальный элемент по модулю:", max_abs)

Этот код создает матрицу M размером 5x5 и заполняет ее случайными числами в диапазоне от -50 до 50. Затем он выводит исходную матрицу M. Далее элементы верхней треугольной матрицы копируются в одномерный массив F. Массив F выводится на экран, а затем в нем находятся минимальный и максимальный элементы по модулю, которые также выводятся.