Задать вопрос
12 ноября, 16:51

Дано N целых чисел, сгенерированных случайным образов в диапазоне - 100, 100. Найти произведение всех чисел > 5.

+1
Ответы (1)
  1. 12 ноября, 18:13
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано N целых чисел, сгенерированных случайным образов в диапазоне - 100, 100. Найти произведение всех чисел > 5. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Даны два целых числа A и B (A < B). Найти сумму всех чисел от A до B включительно. 2. Даны два целых числа A и B (A 0). Найти произведение всех чисел от A до B включительно. 3. Дан массив целых чисел Х. Найти сумму квадратов всех чисел. 4.
Ответы (1)
29. Составить алгоритм и написать решение задачи на Паскале: Проверить, встречаются ли среди 15 сгенерированных чисел из диапазона от - 10 до 10 нулевые элементы.
Ответы (1)
Даны два целых числа А и В (А < В). Найти произведение всех целых чисел от А до В включительно. Входные данные: ввести два целых числа А, В (1
Ответы (1)
1) Заполнить и вывести на экран массив 5 х 10 случайных целых чисел в диапазоне от 1 до 10. 2) Найти сумму элементов одномерного массива с k1-го по k2-ой, где k1 и k2 вводятся с клавиатуры. Сделать проверку корректности их ввода.
Ответы (1)
Помогите решить задачу о Паскалю Дано четыре числа. Необходимо найти произведение тех чисел, которые находятся в диапазоне от 3 до 9 включительно. Формат входных данных С клавиатуры вводятся 4 целых числа, по модулю не превосходящих 20.
Ответы (1)