Program Lab8_18; uses crt;

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

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

var x:vector;
    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 Write(X[i]:7:2);
Writeln;
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.