Целочисленная квадратная матрица, найти число элементов, кратных k

08.01.2011, 20:02. **Показов** 2214. **Ответов** 2

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

Задача :
Для целочисленной квадратной матрицы найти число элементов, кратных k, и наибольший из них.

Помнится как в паскале находил первое кратное

Pascal

for i:=1 to n do
for j:=1 to n do
if a[i,j] mod k=0 then
 begin
   max:=a[i,j];
   break;
 end;
Находил количественное и максимальное
for i:=1 to n do
for j:=1 to n do
if a[i,j] mod k=0 then
 begin
   max:=a[i,j];
   break;
 end;

Но это Паскаль , а мне нужно в VBA всё написать..
Может кто подскажет?

@~~Busine2009~~ · 08.01.2011, 20:21

Visual Basic

Option Explicit
Dim myMatrix(1 To 10, 1 To 10) As Long
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim vКоличество As Integer
Dim vMaxКратное As Long
For i = LBound(myMatrix, 1) To UBound(myMatrix, 1)
    For j = LBound(myMatix, 2) To UBound(myMatrix, 2)
        If myMatrix(i, j) Mod k = 0 Then
            vКоличество = vКоличество + 1
            If vКоличество = 1 Then
                vMaxКратное = myMatrix(i, j)
            ElseIf myMatrix(i, j) > vMaxКратное Then
                vMaxКратное = myMatrix(i, j)
            End If
        End If
    Next j
vКоличество
vMaxКратное
Next i

08.01.2011, 20:28

Busine2009
Спасибо тебе.

siemenscx75
	08.01.2011, 20:28	3
	Busine2009 Спасибо тебе.