|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.08.2017, 18:38 | #1 |
Регистрация: 12.07.2017
Сообщений: 6
|
Смена элементов массива
Здравствуйте. Есть массив 5х5 с рандомными числами. После создания массива я хожу по каждому элементу и заполняю его.
Сколько раз встречается цифра 9 вокруг этого элемента такое значение и заношу в него. Можно как то упростить код? Sub Massiv() N = 5 m = 5 ReDim a(1 To N, 1 To m) For i = 1 To N For j = 1 To m a(i, j) = CInt(Int((5 * Rnd()) + 1)) Next Next For i = 1 To N For j = 1 To m If a(i, j) = 5 Then a(i, j) = 9 Next Next Dim s As Integer s = 0 If a(1, 1) <> 9 Then If a(1, 2) = 9 Then s = s + 1 If a(1, 1) <> 9 Then If a(2, 1) = 9 Then s = s + 1 If a(1, 1) <> 9 Then If a(2, 2) = 9 Then s = s + 1 If a(1, 1) <> 9 Then a(1, 1) = s s = 0 If a(1, 2) <> 9 Then If a(1, 1) = 9 Then s = s + 1 If a(1, 2) <> 9 Then If a(2, 1) = 9 Then s = s + 1 If a(1, 2) <> 9 Then If a(2, 2) = 9 Then s = s + 1 If a(1, 2) <> 9 Then If a(2, 3) = 9 Then s = s + 1 If a(1, 2) <> 9 Then If a(1, 3) = 9 Then s = s + 1 If a(1, 2) <> 9 Then a(1, 2) = s s = 0 If a(1, 3) <> 9 Then If a(1, 2) = 9 Then s = s + 1 If a(1, 3) <> 9 Then If a(2, 1) = 9 Then s = s + 1 If a(1, 3) <> 9 Then If a(2, 3) = 9 Then s = s + 1 If a(1, 3) <> 9 Then If a(2, 4) = 9 Then s = s + 1 If a(1, 3) <> 9 Then If a(1, 4) = 9 Then s = s + 1 If a(1, 3) <> 9 Then a(1, 3) = s s = 0 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вычислить z=s1+s2/2, где s1-сумма положительных элементов массива X(8); s2-сумма отрицательных элементов массива Y(10) . обе суммы | Лидия 188 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 06.11.2015 18:44 |
Смена элементов в матрице | Karey | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 17.12.2014 20:07 |
Вывод элементов массива.Изменение элементов массива. | Vesnushka18 | Помощь студентам | 6 | 09.06.2011 13:05 |
В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму элементов массива | HazelHen | Общие вопросы C/C++ | 2 | 29.03.2009 15:16 |