Форум программистов, компьютерный форум CyberForum.ru

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Drannzer
0 / 0 / 0
Регистрация: 26.12.2016
Сообщений: 6
#1

Вывести элементы массива с нечетными номерами в порядке убывания номера - Visual Basic

28.12.2016, 02:07. Просмотров 133. Ответов 1
Метки нет (Все метки)

Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN, AN−2, AN−4, …, A1. Условный оператор не использовать.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2016, 02:07     Вывести элементы массива с нечетными номерами в порядке убывания номера
Посмотрите здесь:

Разделить все элементы массива с четными номерами на первый элемент Visual Basic
Расставить в порядке возрастания элементы массива. Visual Basic
Вычислить сумму элементов массива с нечетными порядковыми номерами Visual Basic
Разделить элементы массива с четными номерами позиций на произвольное число b Visual Basic
Вычислить сумму элементов массива, номера которых являются нечетными Visual Basic
Visual Basic Файл: Отображать номера групп в порядке убывания средней успеваемости их студентов
Visual Basic Переставить элементы массива n в обратном порядке
Дан вектор Х(н). Элементы вектора с нечетными номерами умножить на 3 Visual Basic
Visual Basic Как вывести в порядке невозрастания (убывания) элементы массива, модуль которых больше 2
Visual Basic Расположение чисел a,b,c в порядке убывания
Visual Basic Вывести элементы массива на экран в обратном порядке по 6 чисел в строке.
Visual Basic Определить, идут ли элементы массива в порядке возрастания

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
821 / 1016 / 347
Регистрация: 23.10.2013
Сообщений: 4,761
Записей в блоге: 4
24.01.2017, 15:03     Вывести элементы массива с нечетными номерами в порядке убывания номера #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Dim i%, N%
 
Private Sub com1_Click()
    Randomize Timer
    N = Val(txtT.Text)
    
    ReDim A%(N)
    
    For i = 1 To N
        A(i) = 40 * Rnd
        Print Format(A(i), "  00");
    Next
    Print: Print
    
    For i = N To 1 Step -2
        Print Format(A(i), "  00");
    Next
End Sub
Миниатюры
Вывести элементы массива с нечетными номерами в порядке убывания номера  
Yandex
Объявления
24.01.2017, 15:03     Вывести элементы массива с нечетными номерами в порядке убывания номера
Ответ Создать тему
Опции темы

Текущее время: 09:15. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru