Переписать первые элементы каждой строки матрицы в массив

@blackmarket · Регистрация: 08.01.2015

Author24 — интернет-сервис помощи студентам

Переписать первые элементы каждой строки матрицы А(7,3) в массив D, если в строке есть элемент больше 13. Если в строке нет такого элемента, то записать ноль в массив D в соответствующем месте. Вывести исходную матрицу и образованный массив на печать одновременно. Элементы матрицы А задать самостоятельно.

toiai · 10.01.2015, 21:54

А что-же не получается, на каком этапе застрял?

Добавлено через 15 минут

Сообщение от blackmarket

Вывести исходную матрицу и образованный массив на печать одновременно.

думаю требуется объяснения

Добавлено через 27 минут
Вот такой набросок:

Visual Basic

Sub StrokV13()
    Dim a&(), d&(), i&, j&, m&, n&
    m = 7 ' ðàçìåð ìàòðèöû
    n = 3
    ReDim a(1 To m, 1 To n)
    ReDim d(1 To m)
    Randomize
    For i = 1 To m
        s = 0
        For j = 1 To n
            a(i, j) = Int(16 * Rnd + 1)
        Next j
        d(i) = IIf(Application.Max(Application.Index(a, i)) > 13, a(i, 1), 0)
    Next i
    Cells(1, 1).Resize(m, n) = a
    Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1) = "ñôîðìèðîâàííûé ìàññèâ ïî çíà÷åíèÿì (>13) ïî ñòðîêàì"
    Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Resize(m, 1) = Application.Transpose(d)
End Sub

@blackmarket · 10.01.2015, 22:04 **[ТС]**

Сообщение от toiai

думаю требуется объяснения

в результате вывести исходную матрицу и получившийся массив

@blackmarket 0 / 0 / 0 Регистрация: 08.01.2015 Сообщений: 4
		1
	Переписать первые элементы каждой строки матрицы в массив 10.01.2015, 20:21. Показов 1600. Ответов 2 Метки нет (Все метки) Переписать первые элементы каждой строки матрицы А(7,3) в массив D, если в строке есть элемент больше 13. Если в строке нет такого элемента, то записать ноль в массив D в соответствующем месте. Вывести исходную матрицу и образованный массив на печать одновременно. Элементы матрицы А задать самостоятельно. 0

@blackmarket 0 / 0 / 0 Регистрация: 08.01.2015 Сообщений: 4
	10.01.2015, 22:04 [ТС]	3
	Сообщение от toiai думаю требуется объяснения в результате вывести исходную матрицу и получившийся массив 0

Переписать первые элементы каждой строки матрицы в массив

Решение