![Напишите,,программу: дан целочисленный массив из 15 элементов,из диапазона [-20; 20].напишите прогр](/tpl/images/0599/9034/ee02e.jpg)
Переведем 109 в двоичную систему: 1*2^6 + 1*2^5 + 0*2^4 + 1*2^3 + 1*2^2 +0*2^1 + 1*2^0:
0110 1101
В знаковом виде, в старшем разряде (самый левый) хранится знак числа: 0 для +, 1 для минус; остальные разряды - само число.
Отрицательное числом может кодироваться в прямом, обратном и дополнительном кодах.
В прямом коде это то же самое положительное, только с другим знаком:
1110 1101
В обратном - все значащие разряды инвертированы:
1001 0010
В дополнительном к обратному коду просто прибавлена единица:
1001 0011
Чаще всего в вычислительной техники пользуются дополнительным кодом, так что подозреваю, что он тебе и нужен.
const
SzM = 10;
SzN = 10;
var
a: array[1..SzM, 1..SzN] of integer;
m, n, i, j, Count: integer;
begin
m := 3;
n := 4;
{ввод массива}
for i := 1 to m do
for j := 1 to n do
a[i, j] := (i - 1) * n + j;//если ввод вручную, тогда Read(a[i,j])
{вывод массива}
for i := 1 to m do
begin
for j := 1 to n do
Write(a[i, j]:4);
Writeln;
end;
{подсчет четных}
for i := 1 to m do
for j := 1 to n do
if a[i, j] mod 2 = 0 then Count += 1;
Write('количество четных: ', Count)
end.
