Program Lab8_18; uses crt;

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

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

var x:vector;
    i,count:byte;

Begin clrscr;
Randomize;
Count:=0;
Write('--------------------------------------------------------------------------------');
Writeln(' Исходный массив:');
for i:=1 to size_n do
    Begin
    X[i]:=Random(101)-50.;
    if (X[i] > 0) Then Inc(Count);
    Write(X[i]:7:2);
    end;
Writeln;
Write('--------------------------------------------------------------------------------');
Writeln(' Кол-во полжительных элементов: ',Count:2);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.