Question

Массив F (4,3) задан вещественными числами с клавиатуры. 1.Заменить элементы 1 строки на их кубы. 2.Вывести на экран массив в одну строку. 3.Определить, есть ли во 1-ом столбце элементы, кратные 10, вывести на экран их номера и значения.

Answer 1

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

begin

 var m:= ReadMatrReal(4, 3);

 for var j := 0 to m.ColCount-1 do

   m[0,j]:=m[0,j]**3;

 m.ElementsByRow.Println;

 for var i := 0 to m.RowCount-1 do

   if Trunc(m[i,0]) mod 10 = 0 then

     Println(i+1, m[i,0]);

end.

Answer 2

Хорошо, давайте по порядку выполним каждое из заданий для массива F (4,3).

1. Заменить элементы 1 строки на их кубы:

pythonCopy code
F = [[0] * 3 for _ in range(4)]  # Создаем пустой двумерный массив размером 4x3

# Вводим значения массива с клавиатуры
for i in range(4):
    for j in range(3):
        F[i][j] = float(input(f"Введите значение для элемента F({i+1},{j+1}): "))

# Заменяем элементы 1 строки на их кубы
for j in range(3):
    F[0][j] = F[0][j] ** 3

print("Массив F после замены элементов 1 строки на их кубы:")
for i in range(4):
    for j in range(3):
        print(F[i][j], end=" ")
    print()

2. Вывести на экран массив в одну строку:

pythonCopy code
print("Массив F в одну строку:")
for i in range(4):
    for j in range(3):
        print(F[i][j], end=" ")
print()

3. Определить, есть ли в первом столбце элементы, кратные 10, и вывести на экран их номера и значения:

pythonCopy code
print("Элементы в первом столбце, кратные 10:")
for i in range(4):
    if F[i][0] % 10 == 0:
        print(f"Номер: {i+1}, Значение: {F[i][0]}")

Примечание: В представленном коде предполагается, что ввод значений массива будет осуществляться с клавиатуры во время выполнения программы.