В матрице С(5, 6) найти значение и индексы минимального элемента матрицы и количество положительных элементов?

Tomilev2018 26 апр. 2020 г., 09:04:59

'VBScript

Sub Zadanie() ReDim C(5, 6) k_pos = 0 mini = LBound(C, 1) minj = LBound(C, 2) For i = LBound(C, 1) To UBound(C, 1) For j = LBound(C, 2) To UBound(C, 2) C(i, j) = Round(Rnd * 10) if C(i, j) > ; 0 then k_pos = k_pos + 1 if C(i, j) < ; C(mini, minj) then mini = i minj = j end if Next Next MsgBox "min C(" & ; mini & ; ", " & ; minj & ; ") = " & ; C(mini, minj) & ; vbNewLine & ; "c> ; 0 : " & ; k_pos

End Sub

Call Zadanie().

Olga5713 28 сент. 2020 г., 07:50:35 | 10 - 11 классы

Дана матрица размером 7Х7 элементов, случайным образом заполненная?

Дана матрица размером 7Х7 элементов, случайным образом заполненная.

Найти минимальное значение из элементов тех столбцов матрицы, среднее арифметическое которых больше 5 и меньше 15.

Yyyyulya 7 нояб. 2020 г., 18:44:21 | 10 - 11 классы

Дана матрица К(3, 3), найти минимальный элемент массива в строке с индексом 3 и заменить этим значением все элементы главной диагонали?

Дана матрица К(3, 3), найти минимальный элемент массива в строке с индексом 3 и заменить этим значением все элементы главной диагонали.

Макспп 6 февр. 2020 г., 21:29:38 | 10 - 11 классы

Дана матрица размером 7Х7 элементов, случайным образом заполненная?

Дана матрица размером 7Х7 элементов, случайным образом заполненная.

Найти минимальное значение из элементов тех столбцов матрицы, среднее арифметическое которых больше 5 и меньше 15.

Программирование.

NikitaPetrovBest 30 дек. 2020 г., 11:27:53 | 10 - 11 классы

В квадратной матрице найти сумму минимального и максимального элементов главной диагонали?

В квадратной матрице найти сумму минимального и максимального элементов главной диагонали.

Annashestackov 13 сент. 2020 г., 04:37:53 | 10 - 11 классы

В матрице А(7, 5) от всех отрицательных элементов вычесть число 10, распечатать индексы положительных элементов?

В матрице А(7, 5) от всех отрицательных элементов вычесть число 10, распечатать индексы положительных элементов.

Банан54 1 июн. 2020 г., 00:18:57 | 10 - 11 классы

В прямоугольной матрице найти количество чётных элементов?

В прямоугольной матрице найти количество чётных элементов.

Tanechka041 26 нояб. 2020 г., 13:56:15 | 10 - 11 классы

В матрице m найти произведение положительных элементов?

В матрице m найти произведение положительных элементов.

Белкария 31 июл. 2020 г., 02:57:19 | 10 - 11 классы

Дана целочисленная матрица размера 5 на 5?

Дана целочисленная матрица размера 5 на 5.

Найти минимальный элемент.

Timoxa 27 дек. 2020 г., 17:14:07 | 10 - 11 классы

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

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

Sos.

SonnyLuchyu 15 нояб. 2020 г., 01:12:07 | 10 - 11 классы

Pascal?

Pascal.

Составить программу для вычисления количества положительных элементов матрицы Q(4х9).