Из случайных десяти чисел в диапазоне [0;20) найти все нечетные элементы и их сумму....

Question

Из случайных десяти чисел в диапазоне [0;20) найти все нечетные элементы и их сумму. Полученные десять чисел вывести на экран. Нужно решить с помощью программы (наверное. я не знаю. помогите, пожалуйста)

Answer 1

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 <> 0 then begin

     Write (A [i], ' ');

     s := s + A [i];

   end;

 end;

 WriteLn;

 Writeln ('Сумма нечетных элементов = ', s);

end.