profile
Опубликовано 6 лет назад по предмету Информатика от pinksugar93

дан массив из 10 элементов. посчитать произведение этих элементов. помогите пожалуйста

  1. Ответ
    Ответ дан ingr

    var

       d : array of integer := new integer[10];

       a : integer := 1;

       

    begin

       d := arrRandom(10, 1, 10); // заполняем массив случайными числами от 1 до 10

       for var i := 0 to 9 do a := a*d[i]; // перемножаем

       writeln('дан массив: ', d);

       writeln('произведение всех его членов равно ', a);

    end.

Самые новые вопросы