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

Question

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

Answer 1

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.

Comments

Аленусик. не могла бы пожалуйста помочь ещё с 1 задачей.
http://znanija.com/task/5714034