На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела
1. Не создавайте несколько одинаковых тем, ибо модератор может расценить их, как спам и удалить все.
2. Для решения задач по GPSS есть отдельная тема. Все задачи по GPSS опубликовывать в этой теме! Перед опубликовыванием вашей задачи просмотрите всю тему, возможно вы сразу найдете решение.
3. Давайте вашим темам ОСМЫСЛЕННЫЕ названия, а также указывайте язык программирования. Пример: [Pascal]:Работа с файлами и записями.
4. Использования тега CODE обязательно при публикации текста программы.

Темы, оформленные с явным игнорированием правил и отсутствием смысла, будут закрыты/удалены!
Вам помогли? Напишите об этом здесь (в портфолио фрилансера)

Фрилансерам:
5. Демпинг цен запрещен (даже если Вы готовы работать бесплатно). Цены обсуждаются в приватном общении. Если вы готовы рещить задачу бесплатно, просто решите ее быстрее, чем возникнет предложение сделать это за деньги.
6. Пользователям, входящим в группу Newbie, запрещается предлагать свои услуги (завуалированно в т.ч.)
7. В посте с предложением выполнить работу, обязательно указывать ссылку на свое портфолио в Отзывы, Благодарности, Портфолио Это правило работает и в том случае, если вы выполняете работу бесплатно.
8. Реклама (даже завуалированная) своих фриланских сайтов запрещена

Нарушение данных пунктов влечет до RO или БАНА (при неоднократом)
Модераторы: ttiger, mikefreelance, Rust
  
    > Программирование массива в Visual Basic , Помогите с кодом я что то вообще не могу разобраться в данном заданиии
      1. Заполнить массив из n элементов случайными целыми числами из
      промежутка [-20,40].
      2. Найти удвоенную сумму положительных элементов.
      3. Вывести индексы тех элементов, значения которых больше значения
      предыдущего элемента (начиная со второго).
      4. Перенести первые k элементов в конец: a[k+1], a[k+2], .. ,
      a[n-1], a[0], .., a[k].
          Схема (начало) какая-то такая:
          ExpandedWrap disabled
                    Const n = 8, k = 3
                    Dim a(n) As Integer, s2,tmp,j As Integer
             
                    Randomize()
                    For i = 0 To n-1
                        a(i) = Rnd() * (40 - (-20)) + (-20)
                        Console.WriteLine(a(i))
                    Next i
                    s2 = 0
                    For i = 0 To n-1
                        If a(i)>0 Then s2 = s2 + a(i)
                    Next i
                    s2 = 2*s2   'удваиваем
                    Console.WriteLine("Sum2+: " & s2)
                    For i = 1 To n-1
                        If a(i)>a(i-1) Then Console.WriteLine(i)
                    Next i
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0178 ]   [ 15 queries used ]   [ Generated: 29.03.24, 08:28 GMT ]