Имеется двумерный массив А размерностью(10х10).

@Б.Екатерина · Регистрация: 24.05.2011

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

Задание:
Имеется двумерный массив А размерностью(10х10). Обнулить элементы стоящие на побочной диагонали (1,10),(2,9)…(9,2),(10,1) и параллельной ей наддиагонали (1,9),(2,8)…(8,2) и (9,1) , а остальные элементы задать случайными числами в диапазоне от 10 до 80.

Думаю думаю никак ничего не выходит

(
Помогите пожалуйста вот с этим заданием...

@~~Busine2009~~ · 24.05.2011, 17:35

Б.Екатерина,
чтобы наглядно видеть, как это работает, сделайте следующее:

сделайте, чтобы было одновременно видно Excel и VBA;
поставьте курсор на код;
нажимайте клавишу F8.

Код:

Visual Basic

Sub P1()
Dim A(1 To 10, 1 To 10) As Double
Dim i As Integer, j As Integer
'Сначала заполним случайными числами.
For i = 1 To 10 Step 1
    For j = 1 To 10 Step 1
        'Формула генерации случайных чисел есть в справке:
        'поставьте курсор на Rnd и нажмите F1.
        Cells(i, j).Value = Int((80 - 10 + 1) * Rnd + 10)
    Next j
Next i
j = 0
'А потом уже обработаем диагонали.
For i = 10 To 1 Step -1
    j = j + 1
    Cells(i, j).Value = ""
Next i
j = 0
For i = 9 To 1 Step -1
    j = j + 1
    Cells(i, j).Value = ""
Next i
End Sub

@Б.Екатерина · 25.05.2011, 00:55 **[ТС]**

Спасибо Вам большое!!! Выручили!)

@Б.Екатерина 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 10
		1
	Имеется двумерный массив А размерностью(10х10). 24.05.2011, 15:49. Показов 1397. Ответов 2 Метки нет (Все метки) Задание: Имеется двумерный массив А размерностью(10х10). Обнулить элементы стоящие на побочной диагонали (1,10),(2,9)…(9,2),(10,1) и параллельной ей наддиагонали (1,9),(2,8)…(8,2) и (9,1) , а остальные элементы задать случайными числами в диапазоне от 10 до 80. Думаю думаю никак ничего не выходит( Помогите пожалуйста вот с этим заданием... 0

@Б.Екатерина 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 10
	25.05.2011, 00:55 [ТС]	3
	Спасибо Вам большое!!! Выручили!) 0