Из случайных 10 чисел в спектре [0;20) отыскать все нечетные элементы

var

 A: array [1..10] of Integer;

 i, s: Integer;

begin

 Randomize;

 WriteLn ('Массив:');

 for i := Low (A) to High (A) do begin

   A [i] := Random (21);

   Write (A [i], ' ');

 end;

 s := 0;

 WriteLn;

 WriteLn ('Нечетные элементы:');

 for i := Low (A) to High (A) do begin

   if i mod 2 lt;gt; 0 then begin

     Write (A [i], ' ');

     s := s + A [i];

   end;

 end;

 WriteLn;

 Writeln ('Сумма нечетных частей = ', s);

end.