{* Задача 43 *}

Unit PASVECT;
Interface
Implementation
Begin
 writeln('В векторе Z(m) определить сумму нечётных элементов.');
End.

Program pasvect;

Uses pasvect.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  Z_COUNT = 13;
Type {* Используемые типы *}
  VECTOR_TYPE = integer;
Var {* В работе нам потребуются переменные: *}
  z   : Array[1..Z_COUNT] Of VECTOR_TYPE;
  i   : integer;
  sum : VECTOR_TYPE;
Begin
  / / initialie vector data
  For i := 1 To Z_COUNT Do {* Цикл для i => [1 .. Z_COUNT] *}
  Begin
    z[i] := random(10);
  End;
  / / calculating summ      sum := 0;
  For i := 0 To Z_COUNT Div 2 - 1 Do {* Цикл для i => [0 .. Z_COUNT] *}
  Begin
    sum := sum + z[i * 2 + 1];
  End;
  / / out sum      writeln('SUM=', sum);
  readln; {* Ждем нажатия Enter *}
End.