Const n=15; var a:array[1..n] of integer; i,s:integer; sr:real; begin Randomize; writeln('Массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; s:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('Среднее арифметическое = ',sr:6:2); writeln('Номера элементов, больших среднего арифметического:'); for i:=1 to n do if a[i]>sr then write(i:3); writeln; end.
Объяснение:
1) 81/2=40 (остаток 1)
40/2=20 (0)
20/2=10 (0)
10/2=5 (0)
5/2=2 (1)
2/2=1 (0)
1/2=0 (1)
81₁₀=1010001₂
2) 653/2=326 (1)
326/2=163 (0)
163/2=81 (1)
81/2=40 (1)
40/2=20 (0)
20/2=10 (0)
10/2=5 (0)
5/2=2 (1)
2/2=1 (0)
1/2=0 (1)
653₁₀=1010001101₂
3) 1001010₂=1·2⁶+0·2⁵+0·2⁴+1·2³+0·2²+1·2¹+0·2⁰=64+8+2=74₁₀
4) 1001000101₂=1·2⁹+0·2⁸+0·2⁷+1·2⁶+0·2⁵+0·2⁴+0·2³+1·2²+0·2¹+1·2⁰=512+64+4+1=581₁₀
1) 44/8=5 (4)
5/8=0 (5)
44₁₀=54₈
2) 804/8=100 (4)
100/8=12 (4)
12/8=1 (4)
1/8=0 (1)
804₁₀=1444₈
3) 17₈=1·8¹+7·8⁰=8+7=15₁₀
4) 1432₈=1·8³+4·8²+3·8¹+2·8⁰=512+256+24+2=794₁₀
1) 91/16=5 (11=B)
5/16=0 (5)
91₁₀=5B₁₆
2) 946/16=59 (2)
59/16=3 (11=B)
3/16=0 (3)
946₁₀=3B2₁₆
3) 21₁₆=2·16¹+1·16⁰=32+1=33₁₆
4) 34F₁₆=3·16²+4·16¹+15·16⁰=768+64+15=847₁₀
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15