У тебя задание не правильно написано похоже .
Если 13 БАЙТОВ,то нужно 13•8=102 бита
Кажется, будет слово: паркет.
Но я не уверена, на счет второй картинки
2/1= 2
2/2= 4
2/3= 8
2/4= 16
2/5= 32
2/6= 64
2/7= 128
2/8= 256
2/9= 512
2/10= 1024
Var
a:array[1..1000] of integer;
n, i, suma:integer;
begin
write('введите количество чисел массива ');
readln(n);
suma:=0;
for i:=1 to n do
begin
a[i]:=random(101)-70;
if(a[i]<0) then
suma:=suma+a[i];
end;
write('массив ');
for i:=1 to (n-1) do
write(a[i],', ');
writeln(a[n],' ');
writeln('сумма отрицательных элементов ',abs(suma));
end.
Div - это целочисленное деление, деление без остатка?
Тогда
i - целое число, делимое
j - целое число, делитель
а остаток от деления будет
i - j * (i div j)