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

ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО.                     Задача: Сформировать массив из 9 произвольных чисел.Найти сумму и произведение элементов с нечетными индексами.                                                                                                   Pascal ABC
Гость
Ответ(ы) на вопрос:
Гость
const n=9; var a:array [1..n] of integer; i,s,p:integer; begin p:=1; for i:=1 to n do begin a[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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы