Задать вопрос

Дан массив натуральных чисел, заполненный случайными числами. найти произведение элементов кратных 3.

+1
Ответы (1)
  1. 29 июля, 04:14
    0
    program zz1;

    const n = 38; / / задаем количество элементов в массиве

    var i, p:integer; / / задаем переменные целого типа

    k:array [1 ... n] of integer;

    begin

    for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

    k[i]:=random (51) - 20;

    for i:=1 to n do / / выводим полученный массив на экран

    write (k[i],' ');

    writeln; / / переходим на новую строку для вывода ответа

    p:=1;

    for i:=1 to n do

    if (k[i] mod 3 = 0) then p:=p * k[i];

    writeln (' произведение элементов кратных трем = ', p); / / выводим ответ

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Дан массив натуральных чисел, заполненный случайными числами. найти произведение элементов кратных 3. ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
1. Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество. 2. Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50.
Ответы (1)
1) Дан одномерный массив А[N], - целых чисел. Заменить все большие 7 члены массива числом 7. Найти количество таких членов. 2) Задан массив из 10 элементов, найти произведение элементов массива. Задача №3.
Ответы (1)
Дан массив, содержащий N элементов и заполненный случайными числами от - 10 до 9. Сформировать новый массив из значений элементов, стоящих на четных местах. Подсчитать количество отрицательных и положительных значений элементов в новом массиве.
Ответы (1)
1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и полученную сумму. 2. Дан массив В (n). Определите произведение элементов, кратных 3.
Ответы (1)
Дан массив целых чисел от 0 до 20, заполненный случайными числами в интервале [0,100]. Определить количество элементов массива кратных 3.
Ответы (1)