Найти и вывести номера всех отрицательных элементов - VB
Формулировка задачи:
Здравствуйте помогите пожалуйста с написанием кода))) Сформировать одномерный массив целых чисел из диапазона [-10; 15]. Найти и вывести номера всех отрицательных элементов. Исходный массив и результаты вывести в файл.
Решение задачи: «Найти и вывести номера всех отрицательных элементов»
textual
Листинг программы
M = Array(-10, 15, 2, -8, -1, 0, 14) 'массив
MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
Open ("E:\out.txt") For Output As #MyFile 'Открываем файл out.TXT для записи
For I = LBound(M) To UBound(M)
If M(I) < 0 Then Print #MyFile, M(I) ' пишем в файл
Next
Close #MyFile
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д