Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
4: 2
2|0
1|0
0|1
4₁₀=100₂
10: 2
5|0
2|1
10₁₀=1010₂
1996: 2
998|0
499|0
249|1
124|1
62|0
31|0
15|1
7|1
3|1
1|1
1996₁₀=11111001100
100.1010.11111001100
program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.
программу проверил все работает
для матрицы 8*8
код
00111111
01000001
10000001
00010001
00100001
11000001
объем 8 байт
для символьного 1 байт в ascii
2 байта в unicode
Популярные вопросы