Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon QBasic. Задать массив из 10 элементов,…

QBasic. Задать массив из 10 элементов, 5 из которых задаются статически, а 5 рандомно. Подсчитать произведение этих элементов и количество положительных чисел в этом массиве. - вопрос №2478104

QBasic. Задать массив из 10 элементов, 5 из которых задаются статически, а 5 рандомно. Подсчитать произведение этих элементов и количество положительных чисел в этом массиве.
FunnySun
02.06.17
Учеба и наука / Информатика
1 ответ
qbasic

Ответы

Рейтинг: 72
CLS
RANDOMIZE TIMER
FOR i = 1 TO 5
A(i) = i
NEXT i
FOR i = 6 TO 10
A(i) = RND * 21 — 10
NEXT i
P = 1
PRINT «MASS(10): »;
FOR i = 1 TO 10
PRINT " "; A(i);
P = P * A(i)
IF A(i) > 0 THEN
k = k + 1
END IF
NEXT i
PRINT
PRINT «P = »; P
PRINT «k = »; k
END
12.06.17

Еva
Рейтинг: 122 043
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее