Найти количество ненулевых элементов массива A, состоящего из 20 целых чисел взятых из диапазона от - 15 до 30 и сумму положительных элементов.

На бейсике

Dim A (20) As Integer, k As Integer, S As Integer, i As Integer

Randomize

For i = 1 To 20

A (i) = Int (Rnd (1) * 45) - 15 ' Заполняем массив случайными числами от - 15 до 30

Next i

k = 0: S = 0

For i = 1 To 20

If A (i) 0 Then k = k + 1 ' Нашли ненулевой элемент - прибавляем счетчик

If A (i) > 0 Then S = S + A (i) ' Нашли положительный элемент - складываем

Next i

Print "Количество ненулевых элементов " & k

Print "Сумма положительных элементов " & S

End