Массивы: максимум среди отрицательных чисел - VB

Узнай цену своей работы

Формулировка задачи:

Задали задачку вот, не как не могу допетрить как написать эту программку. Есть массив который состоит из 133 элементов, целые, и нужно написать программу для нахождения типа элемента, среди положительных чисел, так же максимум среди отрицательных чисел. Вообще догнать не могу, вот в общем: начало
тут тперь так же находим максимум? или вообще как? помогите пожалуйста буду очень благодарен.

Решение задачи: «Массивы: максимум среди отрицательных чисел»

textual
Листинг программы
Dim i As Integer  ' объявление переменной i
Dim x(1 To 133) As Integer ' так объявляется массив, если он начинается с 1
' чтобы программа работала, надо заполнить сначала массив x()
max=0
For i =1 To 133 'цикл
   If x(i)>0 Then ' это условие, выбираются только положительные числа
      If max<x(i) Then max=x(i) ' а уже здесь ищется максимум
   End If
Next i
Print "max="; max ' только после цикла печатается результат

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

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