Дан одномерный массив вещественных чисел
произвольной размерности. Определить сумму тех
элементов, которые находятся на четных местах.
На паскале, желательно с динамическими массивами.

pascal. динамический массив

Объяснение:

var

 i, n: integer;

 s: real;

 a: array of real;

begin

 Write('Введите размер массива: ');

 ReadLn(n);

 SetLength(a, n);

 for i := 0 to n - 1 do

 begin

   Write('Введите a[', i, ']=');

   ReadLn(a[i]);

   if i mod 2 = 0 then s := s + a[i];

 end;

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

end.