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

Var
x: Array [1..50] of Real;
i,n: Byte;
s: Real;
BEGIN
Repeat
Write(Введите кол-во элементов не более 50: );
Readln(n);
until n in [1..50];
s:=0;
For i:=1 to n do
begin 
          x[i]:=10*Random;
          If Odd(i) Then
          s:=s+x[i];
         Write(x[i]:7:2);
end;
Writeln;
Writeln(Сумма элементов с нечетными индексами = ,s:0:2);
END.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.