Учеба и наука

Решено

Помогите решить задачу на паскале - вопрос №371155

На любом известном алгоритмическом языкенапишите алгоритм вычесления произведения элементов массива B(m) который больше 6 .

решение обязательно на паскале. Заранее спасибо .

Дополнение автора от сентябрь 23, 2012 г., 16:03:49

Можите обяснить зачем Р

Clad сентябрь 21, 2012 г.

  • Всего ответов: 1

  • Валентина - аватарка

    Валентина

    3-й в

    program pr1;

    const m=10; 

    var a:array[1..m] of integer;

    i:integer;

    p:longint; 

    begin

    writeln('vvedite massiv');

    for i:=1 to m do

    readln(a[i]);

    p:=1;

    for i:=1 to m do

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

    writeln('p=',p);

    readln

    end. 

    Буду благодарна, если отметите 

     

    сентябрь 22, 2012 г.
    Ответ понравился автору
    Лучший ответ по мнению автора

Похожие вопросы