Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.234.177.119] |
|
Сообщ.
#1
,
|
|
|
1. Заполнить массив из n элементов случайными целыми числами из
промежутка [-20,40]. 2. Найти удвоенную сумму положительных элементов. 3. Вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго). 4. Перенести первые k элементов в конец: a[k+1], a[k+2], .. , a[n-1], a[0], .., a[k]. |
Сообщ.
#2
,
|
|
|
Сообщ.
#3
,
|
|
|
Схема (начало) какая-то такая:
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 |