Найти и вывести номера всех отрицательных элементов - 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

Оцени полезность:

6   голосов , оценка 4.5 из 5
Похожие ответы