Cрочно! Язык visual basic,массивы - задачи:1)Заменить значение любого элемента массива на а2)Определить имеются ли четные числа в массиве3)Заменить все элементы некоторой строки на заданное число4)Вывести все элементы N столбца...
Cрочно! Язык visual basic,массивы - задачи:
1)Заменить значение любого элемента массива на а
2)Определить имеются ли четные числа в массиве
3)Заменить все элементы некоторой строки на заданное число
4)Вывести все элементы N столбца и M строки
Гость
Ответ(ы) на вопрос:
Гость1)
a=InputBox("Введите а")
n=InputBox("Введите номер элемента")
mas(N)=a
2)
s="No"
For i=1 to n
If (mas(i) mod 2=0) then s="Yes"
next i
MsgBox(s)
3)
a=InputBox("Введите а")
n=InputBox("Введите номер строки")
For i=1 to n
mas(n,i)=a
next i
4)
n=InputBox("Введите номер столбца")
m=InputBox("Введите номер строки")
for i=1 to k
s=s & mas(m,i) &" "
t=t & mas(i,n) & " "
next i
MsgBox(s)
MsgBox(t)
Не нашли ответ?
Похожие вопросы