var

 arr: array[1..20] of real;

 s:real;

 i:integer;

Begin

 s:= 0;

 write('Массив: ');

 for i:=1 to 20 do begin

   arr[i]:= random(10);

   write(arr[i], ' ');

 end;

 for i:=1 to 20 do

   if Abs(arr[i]) > 1 then

     S:= S + arr[i];

 writeln;

 writeln('Сумма: ', s);

END.