Пара это 1 и 2 , 3 и 4 , 90 и 45 смотря что задают
1 , 4 , 2 , 3 , 3 , 4 ,1, 2
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.