Найти количество ненулевых элементов массива A…

Question

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

Answer 1

78

vladimir0020

08 апреля 2023

На бейсике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

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: