Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали - VB

  1. Сформировать произвольно двумерный массив L(9,9). Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали. Вывести полученный массив. Не знаю как найти наибольший элемент именно в строке и как менять местами с элементами диагонали. Помогите, уважаемые :3


textual

Код к задаче: «Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали - VB»

Option Explicit
Private Sub Command1_Click()
Dim L(1 To 9, 1 To 9) As Integer, xmax(1 To 9) As Integer, nmax(1 To 9) As Integer
Dim temp As Integer, i As Integer, j As Integer, k
Randomize
Cls
 
For i = 1 To 9
   For j = 1 To 9
       L(i, j) = Int(Rnd * 100)
       Print vbTab; "L("; i; ","; j; ")="; L(i, j);
   Next j
   Print
Next i
Print
 
For i = 1 To 9
      xmax(i) = L(i, 1): nmax(i) = 1
      For j = 1 To 9
          If L(i, j) > xmax(i) Then xmax(i) = L(i, j): nmax(i) = j
      Next j
      Print vbTab; "xmax("; i; ")="; xmax(i) & "    nmax("; i; ")="; nmax(i)
Next i
Print
 
For i = 1 To 9
      L(i, nmax(i)) = L(i, i): L(i, i) = xmax(i)
Next i
 
For i = 1 To 9
      For j = 1 To 9
           Print vbTab; "L("; i; ","; j; ")="; L(i, j);
      Next j
      Print
Next i
 
End Sub

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.750 из 5



Похожие ответы
  1. Подскажите, пожалуйста как мне сделать, вывод, каждой буквы слова в новой строке.? То есть: К а к т о

  1. дана произвольная строка символов. все группы символов, отделённые пробелом или несколькими пробелами назовем словом 1. найти в строке все слова нечетной длины, содержащие букву "о" и записать в новую строку через пробел. если их нет - то будет сообщение об отсутствии. 2.строка задается вводом с клавиатуры, не рандомно. спасибо.Добавлено через 13 часов 16 минут а в этом участке можно переделать по vb6.0 ?

  1. Доброй ночи! Помогите пожалуйста исправить код. Не могу найти ошибку. Он мне первую строку копирует вообще на все строки, но правильно увеличивает массив. Нужно решить именно без дополнительного массива! Код записан в модуле.

  1. Для целочисленной матрицы найти для каж-дой строки число элементов, кратных пяти, и наибольший из полученных результатов. N(10,10), Ni j >0. Помогите пожалуйста.

  1. Помогите пожалуйста с написанием кода по этому заданию "В строке между словами вставить вместо пробела точку с запятой и пробел." я облазил сайты и нашел только как это сделать в паскале а мне нужно в visual basice 6.

  1. Доброго времени суток Уважаемые форумчане! сразу скажу, что по форуму искал, ничего путного не нашел и поэтому прошу помощи. Задача следующая: кодом visual basic 6.0 (нужен именно он) нужно открыть текстовый файл, построчно считать его содержимое.После считывания каждой строки тут же реализовать проверку наличия в этой строке символа "@". Если символа "@" в строке нет, то считать следующую строку и повторить проверку наличия символа. Если есть символ "@", то всю эту строчку записать в файл. И так до конца файла. Пока есть вот такой кусок кода:

  1. Пожалуйста, помогите сделать! (visual basic) Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимальное из этих значений, а если равны, то присвоить переменным нулевые значения.

  1. Здравствуйте, помогите решить задачу: Разработка программы вывода элементов одномерного массива. Массив состоит из 60 случайных двухзначных целых чисел. Выведите их на экран в обратном порядке по 6 чисел в строке.

  1. Помогите написать процедуру для задания: В заданной строке, состоящей из слов, разделенных одним или более пробелами, заменить каждое третье слово «инфа» словом «информатика» и подсчитать количество проведенных замен. Заранее спасибо !

  1. Помогите пожалуйста написать прогу. Все должно быть просто, но я не знаю даже и как начать. Дана строка символов. Подсчитать, сколько раз в сумме встречаются в строке символы " + ", " - ", " * ". Заменить в строке все " * " на " а ". Текст должен вводится в текстовое поле (textbox), в второе поле выводится число символов, а в третье текст в котором "*" заменены на "а".Все выполняется нажатием 1 кнопки.