• Вопрос по информатике:

    ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО.                     Задача:
    Сформировать массив из 9 произвольных чисел.Найти сумму и произведение элементов с нечетными индексами. 
                                                                                                     Pascal ABC

    • Автор:

      biancaarmstrong

  • Ответ:

    const n=9;var a:array [1..n] of integer;i,s,p:integer;beginp:=1;for i:=1 to n do begina[i]:=random(21)-10;if i mod 2=1 then  begin  s:=s+a[i];  p:=p*a[i];  end;write (a[i]:4);end;writeln;writeln ('Сумма=',s);writeln ('произведение=',p);end.

    • Отвечал:

      cirilogriffin
    • 1

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска