Погибаю... помогите решить

Программирование на Visual Basic for Applications
lomeon
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 08.05.2004 (Сб) 14:39

Погибаю... помогите решить

Сообщение lomeon » 08.05.2004 (Сб) 15:26

Народ помогите пожалуйста... :? хоть это и очередная однотипная тема с криком о помощи, но я надеюсь кто-нить откликнется.
Вот задачки:
1. Ввести массив А(N). Ввести произвольное число L. Четные элементы массива >L, уменьшить на 5. Вывести на экран исходные и преобразованные данные.
2.Заполнить массив членами натурального ряда (1,2,3…) до тех пор, пока их произведение не станет больше наперед заданного числа М. Вывести на экран и число произведение и число элементов массива.
3. Вычислить произведение положительных и отрицательных элементов каждой строки массива A(N,M).
4. Ввести массив A(N,M).Найти максимальные элементы каждого столбца и записать их в отдельный массив.
5. Ввести массив A(N). Задать число L. Вывести на экран данные о количестве элементов массива равных L. Если таковых нет, вывести на экран сообщение об этом.

A(N,M) =
9 -11 -21 43 92
17 41 42 -28 -35
36 -6 -4 34 81
47 26 -23 14 -28
-23 -32 6 10 20

Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 116

    TopList