вектор

[Diman9508]

дан вектор t1...tn найти сумму и произведение его компонент с нечетными номерами написать программу в паскале
ребят помогите это контрольная

[Leshii]

...

Вектор я так понял ввиде массива задать?

const n = 20;
var
Vector : array [ 1 .. n ] of integer;
i, m: integer;
sum, d: real;
begin
randomize;
repeat
write("Enter N ( N <=20 ):");readln(m);
until m < = 20;
for i:=1 to m do begin
     Vector[i]:=random(10)+1;
end;
sum:=0;d:=1;
for i:=1 to m do begin
     if i mod 2 <> 0 then begin
      sum:=sum+vector[i];
      d:=d*vector[i];
     end;
end;

writeln(sum:3:2,' ',d:3:2);
readln;
end.