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

Question

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

Answer 1

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.