
Найти количество ненулевых элементов массива 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



Шерстяные и шелковые материалы широко используются в текстильной промышленности для создания различных изделий. Вот несколько примеров того, что изготавливают из этих материалов:
Одежда: Шерстяные и шелковые материалы часто используются для пошива различных видов одежды. Это могут быть пальто, платья, костюмы, юбки, блузки, рубашки и прочее. Шерстяные материалы обладают отличными теплоизоляционными свойствами, поэтому они идеально подходят для зимней одежды, так как сохраняют тепло в холодные дни. Шелк же обладает изысканным и шелковистым блеском, что делает его идеальным для создания элегантной и утонченной одежды.
Аксессуары: Из шерсти и шелка изготавливают также различные аксессуары. Например, шерстяные и шелковые шарфы и платки, которые обеспечивают комфорт и стиль. Также из этих материалов делаются шерстяные и шелковые шапки, перчатки, носки и головные уборы, которые защищают от холода и ветра.
Постельное белье: Шелк и шерсть широко используются для производства высококачественного постельного белья. Шелковое постельное белье известно своей мягкостью, гладкостью и дышащими свойствами, а шерстяное постельное белье может обеспечить уют и тепло во время холодных ночей.
Декоративные предметы: Шерсть и шелк также используются для создания различных декоративных предметов. Это могут быть покрывала, подушки, настенные ковры, пледы и даже картинки из шерсти. Эти изделия придают интерьеру уютность, тепло и оригинальность.
Шелковые и шерстяные текстильные изделия для дома: В домашнем текстиле шелк и шерсть также нашли свое применение. Из них производятся шелковые и шерстяные покрывала, скатерти, полотенца, салфетки,


Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili