Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Isildur3
20.09.2021 00:51 •
Информатика
Дан массив размерности m. найти в нём минимальный элемент, определить его порядковый номер. вычислить количество нулей в массиве. visual basic
Показать ответ
Ответ:
Petrosyaniha
08.07.2020 06:54
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
0,0
(0 оценок)
Популярные вопросы: Информатика
Dimaa299
29.01.2020 22:44
Определите значение переменных после выполнения фрагмента алгоритма.внизу написано a:=a+2 b:=b-3 1)a 2)b...
элина20072
17.05.2021 21:13
№1 Составить программу вычисления площади полной поверхности пирамиды, в основании которой лежит квадрат со стороной Х, а боковые ребра имеют длину К, R, M, F. Вычисление...
mirnayanatulya
25.01.2023 10:23
Сколько бит в слове информация, если оно записано в кодировке ascii...
linovanex
13.01.2023 13:13
6. Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел: (1,1); (5,8); (6, -12); (5,5); (3, 11); (-10, -12);...
qpwo
17.07.2022 07:30
2. Опишите модель решения поставленной задачи, соблюдая следующие пункты: а) Входные данные программы б) Выходные данные программы в) Цель проектирования программы г) Назначение...
luszdncsjmn
23.06.2020 14:56
2. Киімдер мен сахнаны қолданып, анимация және оқиғадан тұратын скрипт құрыңыз....
nadia182
24.10.2022 09:32
Вычислить произведение 2/4*3/5*4/6*...*10/12В Pascal...
pchpppr
04.03.2023 20:05
В начале работы Чертежник находится в точке (2;4). В какой точке будет перо после выполнения команды: сдвинь на вектор (3; 4) (2;4) (3; 4) (0; 0) (5; 8)...
he11sp0re
11.12.2022 13:41
Бір санның ширегінің үштен екісініңжартысының 75%-ы 4-ке тең болса, сол сан-ды табыңыз....
lizashevchuk664
11.12.2022 13:41
В мешочке 10 альчиков красного цвета, 10-синего, 6 -желтого и 6 белого цвета.Найдите вероятность того, что наудачу вынутый альчик будет а) красным или белым. б)синим 0,35...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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