Разделить элементы массива с четными номерами позиций на произвольное число b - VB

  1. Дан одномерный массив с 10 элементами, разделить элементы массива с четными номерами позиций на произвольное число b не равное 0, введенное с клавиатуры. Помогите составить программу.


textual

Код к задаче: «Разделить элементы массива с четными номерами позиций на произвольное число b - VB»

Private Sub Command1_Click()
Const N = 10
Dim a(N), i  As Integer, b
b = Val(InputBox("b-?", , 10))
Me.Cls
If b <> 0 Then
Randomize (Timer)
For i = 1 To N
a(i) = Int(Rnd * 100)
Me.ForeColor = 0
Print a(i); vbTab;
If i Mod 2 = 0 Then
Me.ForeColor = 255
Print a(i) / b; vbTab
Else
Print a(i); vbTab
End If
Next i
Else
MsgBox "b=0!"
End If

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.250 из 5



Похожие ответы
  1. Дана матрица размером MxN . Найти количество его столбцов, элементы которых упорядочены по убыванию.

  1. Все элементы главной диагонали заменить наибольшим элементом всего массива! не пойму как делать

  1. Здравствуйте! Не понимаю как прописать выделение четных чисел и обведение рамкой. Буду благодарна за помощь. Заполнить 3-й столбец 10 целыми числами. Выделить все четные положительные красным цветом и обвести рамкой, максимальный элемент увеличить в 10 раз и обвести рамкой.

  1. Текст задачи Дан массив А размера N. Вывести его элементы в следующем порядке: A1, AN, A2, AN-1, A3, AN-2 …

  1. В заданном одномерном массиве целого типа найти и напечатать те элементы, у которых последовательность цифр от младшего к старшему разряду является возрастающей, или сообщить, что таких нет. Использовать процедуру определения, является ли последовательность цифр от младшего к старшему разряду является возрастающей. Пожалуйста,помогите сделать.

  1. В заданном векторе (одномерном массиве) найти: наибольший отрицательный и наименьший положительные элементы.Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 const   nmax=50; var   a: array[1..nmax] of integer;   n,i,min,max: integer; begin   randomize;   repeat     write('Введите размер массива (n<50):');     readln(n);   until n in[1..50];   min:=-1;   max:=1;   writeln('Исходный массив:');   for i:=1 to n do   begin     a[i]:=-99+random(199);     write(a[i]:4);     if a[i]<0 then  max:=a[i]     else if a[i]>0 then min:=a[i];   end;   writeln;   if min=-1 then writeln('Положительных элементов нет')   else    begin     for i:=1 to n do     if (a[i]>0)and(a[i]max) then max:=a[i];     writeln('Максимальный отрицательный=',max);    end; end.

  1. простите но мне нужна помащ можете помоч решить задачу на visual basic 6.0 ? удалить из файла простые элементы

  1. Есть идеи насчет третьего задания?

  1. Добрый вечер! Скажите, пожалуйста, как исправить код, чтобы элементы, при нажатии на флажок появлялись? И ещё почему-то не исчезает изображение.

  1. Здравствуйте, помогите решить задачу: Разработка программы вывода элементов одномерного массива. Массив состоит из 60 случайных двухзначных целых чисел. Выведите их на экран в обратном порядке по 6 чисел в строке.