var a: array[1..999] of integer; n, sp, so, kp, ko: integer; begin read(n); for var i := 1 to n do begin a[i] := random(-9, 9); write(a[i], ' '); if a[i] > 0 then begin sp += a[i]; kp += 1; end; if a[i] < 0 then begin so += a[i]; ko += 1; end; end; writeln; writeln('Среднее арифметическое положительных чисел = ', sp/kp); writeln('Среднее арифметическое отрицательных чисел = ', so/ko); end.
15+16*15+16*16*1=255+256=511
511 в 2ую и 8ую
511=111111110
511:8=63(7)
63:8=7(7)
7:8=0(7)
777 - 8ая
1ED в 10ую
13+14*16+16*16=256+237=493
493=111101101
493:8=61(5)
61:8=7(5)
7:8=0(7)
755
20A
10+0+2*16*16=522
522=1000001010
522:8=65(2)
65:8=8(1)
8:8=1(0)
1:8=0(1)
1012