End Sub

End If

Print

Next i

Next i

Print B(i);

Rem Печать массива В

Else

Print

Next i

Next j

End If

Next p

Next q

K = 0 'считает кол-во элементов в массиве В

Next i

Print

Next j

Print A(i, j);

Randomize

Dim A(), B()

Private Sub Command1_Click()

End Sub

Next i

Next j

Next i

Print

Next j

Print A(i, j);

Randomize

ReDim A(M, N)

Dim A()

Private Sub Command1_Click()

End Sub

Next i

Print

Next j

Print A(i, j);

Randomize

P = 1

ReDim A(M, N)

Dim A()

Private Sub Command1_Click()

M = InputBox("Введите число строк массива")

N = InputBox("Введите число столбцов массива")

For i = 1 To M

For j = 1 To N

A(i, j) = Int(Rnd * 10)

If A(i, j) <> 0 Then P = P * A(i, j)

Print "P="; P

Задача 3. Составьте программу нахождения минимального элемента массива.

M = InputBox("Введите число строк массива")

N = InputBox("Введите число столбцов массива")

For i = 1 To M

For j = 1 To N

A(i, j) = Int(Rnd * 10)

Min = A(1, 1)

For i = 1 To M

For j = 1 To N

If A(i, j) < Min Then Min = A(i, j)

Print "Min="; Min

Задача 4. Составьте программу, отыскивающую в двухмерном массиве минимальное из чисел, встречающихся в массиве более 1 раза.

Алгоритм:

1. Задание массива А(M,N);

2. Запись в одномерный массив В числа встречающиеся в массиве А более 1 раза;

3. Находим минимальный в массиве В.

M = InputBox("Введите число строк массива")

N = InputBox("Введите число столбцов массива")

ReDim A(M, N), B(M * N)

? "Массив А"

For i = 1 To M 'Задание массива А(M,N);

For j = 1 To N

A(i, j) = Int(Rnd(1) * 10)

'Запись в массив В чисел встречающиеся в массиве А более 1 раза;

For i = 1 To M

For j = 1 To N

t = 0 'счётчик кол-ва встреч элемента в массиве А

For p = 1 To M

For q = 1 To N

If A(i, j) = A(p, q) Then t = t + 1

If t > 1 Then

k = k + 1

B(k) = A(i, j)

If k = 0 Then

Print "Все элементы встречаются 1 раз"

Print "Массив В"

For i = 1 To k

Min = B(1)

For i = 1 To k

If B(i) < Min Then Min = B(i)

Print "Min="; Min