Вопрос по информатике:
Дан массив размерности M. Найти в нём минимальный элемент,
определить его порядковый номер. Вычислить количество нулей в массиве. Visual Basic
- 08.05.2018 08:02
- Информатика
- remove_red_eye 4973
- thumb_up 34
Ответы и объяснения 1
INPUT "m - ", m
DIM a(m)
RANDOMIZE (TIMER)
FOR i = 1 TO m
a(i) = INT(RND * 20)
PRINT a(i);
NEXT i
PRINT
min = a(1)
imin = 1
FOR i = 2 TO m
IF a(i) < min THEN
min = a(i)
imin = i
END IF
IF a(i) = 0 THEN
k = k + 1 END IF
NEXT i
PRINT min; imin; k
- 09.05.2018 17:48
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.