Vb6

[strelok07str]

Test

[lika_199]

помоги мне

[lika_199]

массив размером 25 строк и 10 столбцов : в каждой нечетной строке выюираются два нечетных номера чисел(первое и третье). найти в нечетных столбцах строк с 15 по 25 массива максимальное число ,уменьшить значение в 10 раз - полученное целое число и есть ключ шифра

[lika_199]

массив размером 25 строк и 10 столбцов : в каждой нечетной строке выюираются два нечетных номера чисел(первое и третье). найти в нечетных столбцах строк с 15 по 25 массива максимальное число ,уменьшить значение в 10 раз - полученное целое число и есть ключ шифра

text.txt

_____.txt

text.txt

[strelok07str]

массив размером 25 строк и 10 столбцов : в каждой нечетной строке выюираются два нечетных номера чисел(первое и третье). найти в нечетных столбцах строк с 15 по 25 массива максимальное число ,уменьшить значение в 10 раз - полученное целое число и есть ключ шифра

 

Вот ссылка на скачивание, по графике наверно сама доделаешь, посиди поразбирайся

 

http://rghost.ru/42880464

[strelok07str]

С графикой http://rghost.ru/42880616

[lika_199]

найти сумму элементов главной диагонали массива, значение которых не превышает среднего арифметического значения всех элементов этой диагонали, рассчитанное значение суммы уменьшить в 100 раз.. (остальное сделала)

мне нужен кусочек этого кода...

[strelok07str]

найти сумму элементов главной диагонали массива, значение которых не превышает среднего арифметического значения всех элементов этой диагонали, рассчитанное значение суммы уменьшить в 100 раз.. (остальное сделала)

мне нужен кусочек этого кода...

 

размерность какая ?

[strelok07str]

'Сумма главной

Dim sumG As Integer

'Счётчик

Dim s As Integer

s = 0

 

'Главная диагональ

For i = 0 To 999 'строки

For j = 0 To 999999 'столбцы

sumG = sumG + Val(MS.TextMatrix(i, j))

s = s + 1

Next j

Next i

'Вычиследние сред ариф

sumG = sumG / s

 

Dim max As Integer

Dim sum As Integer

 

'Главная диагональ

For i = 0 To 999 'строки

For j = 0 To 999999 'столбцы

If (Val(MS.TextMatrix(i, j) <= sumG)) Then

sum = sum + Val(MS.TextMatrix(i, j))

End If

Next j

Next i

 

 

'Выводим ключ

txtDeKey.Text = Round(sum / 100)