Задать вопрос
Вчера, 12:26

Найти произведение отрицательных элементов массива из 10 случайных целых чисел от - 20 до 20.

+4
Ответы (1)
  1. Вчера, 13:42
    0
    Var a: array [1 ... 10] of integer; i: integer; mult: longint;

    begin

    randomize;

    mult : = 1;

    for i : = 1 to 10 do

    a[i] : = random (40) - 20; {Заполнение случайным образом}

    for i : = 1 to 10 do

    write (a[i], ' ') ; {Написание массива (для контрольной проверки) }

    for i : = 1 to 10 do

    if a[i] < 0 then

    mult : = mult * a[i];

    writeln (mult) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Найти произведение отрицательных элементов массива из 10 случайных целых чисел от - 20 до 20. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы