H. Изменение вещественного массива-5

var a: array[1..100] of real; i, n: integer;
begin
readln(n);
for i:=1 to n do begin
read(a[i]);
if i mod 2 = 0 then
a[i] := a[i] * 2
else
a[i] := a[i] - 1;
end;
for i:=1 to n do
write(a[i]:4:6, ' ');
end.

---------------
10
21 58 53 58 55 -97 -100 -41 99 18
20 116 52 116 54 -194 -101 -82 98 36
---------------
10
2 70 11 40 32 81 38 85 73 -41
1 140 10 80 31 162 37 170 72 -82
---------------
10
65 23 75 91 -67 29 2 -99 59 27
64 46 74 182 -68 58 1 -198 58 54
---------------
10
-80 10 42 46 50 -95 60 62 19 2
-81 20 41 92 49 -190 59 124 18 4
---------------
10
43 -56 5 6 61 60 -91 58 74 6
42 -112 4 12 60 120 -92 116 73 12
---------------
10
-76 35 80 80 21 -91 66 -67 -1 8
-77 70 79 160 20 -182 65 -134 -2 16
---------------
10
-59 5 57 42 74 33 41 77 -66 -42
-60 10 56 84 73 66 40 154 -67 -84
---------------
10
73 74 78 -25 82 19 93 -26 -67 76
72 148 77 -50 81 38 92 -52 -68 152
---------------
10
-83 90 36 36 58 14 -64 65 19 -98
-84 180 35 72 57 28 -65 130 18 -196
---------------
10
39 55 4 90 12 78 -42 -44 51 28
38 110 3 180 11 156 -43 -88 50 56
---------------
10
98 62 86 80 31 50 60 32 -33 -63
97 124 85 160 30 100 59 64 -34 -126
---------------
10
83 61 91 61 -77 -69 26 51 29 -36
82 122 90 122 -78 -138 25 102 28 -72
---------------
10
52 47 38 66 20 10 71 43 71 -5
51 94 37 132 19 20 70 86 70 -10