1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

поиск по ключу (наверное)

Тема в разделе "Visual Basic", создана пользователем -, 4 июн 2009.

  1. Гость

    Репутация:
    0
    найти и напечатать индексы и значения элементов, превышающих величину R. (вектор С размерности N)
     
  2. Jumpy

    Jumpy Гость

    Репутация:
    0
    sub sss()
    dim a as integer
    dim N as integer
    dim R as double
    dim stroka as string
    N = 10
    R = 100
    stroka = ""

    for a = 1 to N
    if C(a) > R then
    stroka = stroka & a & " "
    end if
    next a

    call msgbox("Элементы превыщающие величину " & R & " имеют индексы: " & stroka)
    end sub

    'массив C должен быть задан и иметь размерность N или больше.
    'N и R указываются в коде.
     
Загрузка...

Поделиться этой страницей