Задание:
Найти количество ненулевых элементов массива A, состоящего из 20 целых чисел взятых из диапазона от -15 до 30 и сумму положительныхэлементов.
Решение:
На бейсикеDim A (20) As Integer, k As Integer, S As Integer, i As IntegerRandomizeFor i=1 To 20A (i)=Int (Rnd (1)*45) — 15 ' Заполняем массив случайными числами от -15 до 30Next ik=0: S=0For i=1 To 20If A (i) <> 0 Then k=k+1 ' Нашли ненулевой элемент — прибавляем счетчикIf A (i) > 0 Then S=S+A (i) ' Нашли положительный элемент — складываемNext iPrint «Количество ненулевых элементов " & k Print «Сумма положительных элементов " & SEnd
Знаете другой ответ?