Program Lab8_18; uses crt;

const size_n=20; {Размер массива}

type vector=array [1..size_n] of real; {Описываем тип для вектора}

var x:vector;
    sum:real;
    i:byte;

Begin clrscr;
Randomize;
Write('--------------------------------------------------------------------------------');
Writeln(' Исходный массив:');
for i:=1 to size_n do
    Begin
    X[i]:=Random(101)-50.;
    Write(X[i]:7:2);
    end;
Writeln;
Write('--------------------------------------------------------------------------------');
Writeln(' Элементы с четными индексами:');
for i:=1 to size_n do if not Odd(i) then
                    Begin
                    Sum:=Sum+X[i];
                    Write(X[i]:7:2);
                    end;
Writeln;
Write('--------------------------------------------------------------------------------');
Writeln(' Сумма элементов с четными индексами: ', Sum:8:2);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.