Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
xayalaamirova2
03.10.2021 21:15 •
Информатика
Дано n целых чисел, сгенерированных случайным образов в диапазоне -100, 100. найти произведение всех чисел > 5.
Ответ:
kfisatidi
07.10.2020 07:22
Vari, m, s, k: integer;
beginfor i := 1 to 10 dobeginm := Random(-100, 100);writeln(m);end;writeln('here');if m > 0 thenbegins := 0;for k := m to m dos:=s+m;writeln(s);endend.
0,0
(0 оценок)
Популярные вопросы: Информатика
valeriyakolpas1
19.05.2021 11:27
’Составь полное имя файла . дано дерево каталогов ,составьте полное имя файла Классика.mp3...
alexandrvseznaika
22.02.2022 03:46
Дан файл f1, который содержит номера телефонов сотрудников учреждения: указывается фамилия его инициалы и номер телефона. найти телефон сотрудника по его фамилии...
larson6909
22.02.2022 03:46
Достаточно ли видеопамяти объемом 512 кб для работы монитора в режиме 640х480 и палитрой из 16 цветов?...
Abdresh
25.05.2021 14:08
Укажите минимальный объем памяти (в килобайтах), достаточный для хранения любого растрового изображения размером 300 х 300 пикселей, если известно, что в изображении...
Аляска56
25.05.2021 14:08
Написать программу ,которая выводит на экран школьную таблицу умножения...
nsalexandrovna
25.05.2021 14:08
Решить в паскаль авс две .. дана строка, состоящая из фамилий, разделенных одним или несколькими пробелами. 1. сколько фамилий начинаются и заканчиваются на одну...
harushina
25.05.2021 14:08
Напишите алгоритм решения следующей : отмерьте 2 литра воды, используя 4 и 5-литровые сосуды....
katttty9989
12.03.2021 15:49
СОР по информатике. посчитай сколько выйдет средний у Шакенова Т. напиши формулу и адрес ...
olga638
20.01.2021 02:33
Ввести одномерный массив a, вывести его. переставить в обратном порядке все элементы между максимальным и предпоследним отрицательным элементом. , не могу найти предпоследний...
Izijjkghkk
07.10.2021 06:18
Напишите программу на языке бейсик для вычисления произведения с=3^2*5^2*7^2*. при вводе данных учтите, что s 3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
beginfor i := 1 to 10 dobeginm := Random(-100, 100);writeln(m);end;writeln('here');if m > 0 thenbegins := 0;for k := m to m dos:=s+m;writeln(s);endend.