13 в 10-ой = 1101 в 2-ой.
Запишем в 16 разрядной ячейке:
Первый разряд ячейки отводим под знак числа. Число положительное, значит записываем 0.
0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1
Var
a,b,c:integer;
begin
a:=20;
c:=0;
for b:=1 to 8 do begin
c:=c+a;
a:=a+3;
end;
write('Количество деталей=',c);
end.
Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');
Using System;
class Program
{
static void Main()
{
var random = new Random(DateTime.Now.Millisecond);
int n = 5;
int k;
var c = new int[n, n];
var b = new int[n];
Console.WriteLine("C:");
for (var i = 0; i < n; i++)
{
for (var j = 0; j < n; j++)
{
c[i, j] = random.Next(0, 9);
Console.Write(c[i, j] + " ");
}
Console.WriteLine();
}
Console.WriteLine();
for(int j = 0; j < n; j++) {
k = 0;
for(int i = 0; i < n; i++)
if (c[i, j]==0) k++;
b[j] = k;
}
Console.WriteLine("B:");
for(int i = 0; i < n; i++)
Console.Write(b[i] + " ");
Console.WriteLine();
Console.ReadKey();
}
}
Пример:
<span>C:
3 5 1 3 0
1 6 4 1 7
5 2 5 1 2
4 6 3 0 3
2 3 8 0 7
B:
0 0 0 2 1</span>
ОЮЮУОЮО вот вроде так должно быть, обращайся)