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

Дан массив из 10 элементов. Найти произведение только тех чисел, которые больше заданного числа М, вводимого с клавиатуры. Если таких нет, то выдать сообщение об этом.

+5
Ответы (1)
  1. 15 ноября, 18:10
    0
    По моему вот так.

    uses crt;

    const N = 10; {N - количество чисел в последовательности}

    var i, p, M:integer; a:array[1 ... N] of integer;

    begin

    p:=1;

    write ('введите число M=') ; readln (M) ;

    writeln ('введите исходный массив') ;

    for i:=1 to N do {начало цикла по кол эл }

    begin

    write ('a[', i,']=') ; readln (a[i]) ; {ввод эл массива}

    if a[i]>M then p:=p*a[i];

    end;

    if M=1 then writeln (' элементов > M нет')

    else writeln ('p=', p) ; {печать произведения}

    readln

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив из 10 элементов. Найти произведение только тех чисел, которые больше заданного числа М, вводимого с клавиатуры. Если таких нет, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы