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

Создайте массив из n

элементов (1 < n < 20) и найдите произведение всех его элементов.

Элементы массива вводятся генератором случайных чисел.

+2
Ответы (2)
  1. 3 ноября, 15:25
    0
    var

    a: array of integer;

    i, n: integer;

    k: longint : = 1;

    begin

    readln (n) ;

    a : = new integer[n];

    n - = 1;

    for i : = 0 to n do

    begin

    a[i] : = random (10) ;

    writeln ('a[', i, '] = > ', a[i]) ;

    end;

    writeln () ;

    foreach i in a do

    k * = i;

    writeln (k) ;

    end.
  2. 3 ноября, 16:29
    0
    Var

    a: array [1 ... 20] of integer;

    i, n: integer;

    k: longint;

    begin

    readln (n) ;

    k : = 1;

    for i : = 1 to n do

    begin

    a[i] : = random (10) ;

    write (' ', a[i]) ;

    end;

    writeln () ;

    for i : = 1 to n do

    k : = k * a[i];

    writeln (k) ;

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