Отыскать количество ненулевых элементов массива A, состоящего из 20 целых  чисел

язык какой?

На бейсике
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) lt;gt; 0 Then k = k + 1 ' Отыскали ненулевой элемент - добавляем счетчик
If A(i) gt; 0 Then S = S + A(i) ' Отыскали положительный элемент - складываем
Next i
Print "Количество ненулевых частей " amp; k 
Print "Сумма положительных элементов " amp; S
End