НУЖНА В числовом массиве найти сумму чисел, которые имеют одинаковые знаки и расположены на одинаковом расстоянии, от начала и до конца массива (сумма пар чисел.)

Программа:

Pascal:

var

 arr: array[1..3, 1..4] of integer;

 i, j, n, count: integer;

begin

 write('Введите число: '); readln(n);  // ввод числа n

 for i := 1 to 3 do

   for j := 1 to 4 do begin

     arr[i, j] := random(100);  // заполнение массива случайными числами от 0 до 100

     if arr[i, j] > n then  // если число больше заданного числа, то...

       count += 1;  // увеличиваем значение переменной count на 1

   end;

 writeln('Массив: ', arr);  // вывод массива

 writeln('Чисел, больше ', n, ': ', count);  // вывод кол-ва элементов, больше n.

end.

Чтобы заполнить массив, для начала нужно выделить ему память. После этого запрашивает значение "заданного числа" n. После выделения памяти и запроса числа нужно в двойном цикле обойти все ячейки массива (i - номер строки, j - номер столбца). После начала цикла сначала заполняем массив случайными числами (от 0 до 100), а после находим количество элементов, больше заданного числа. В конце выводим сам массив и кол-во элементов, больше заданного числа.

1.
1)    219[10]  > 21[10]

2)    25[10] < 71[10]

Объяснение:

[10] - десятичная система

2.
ответ:

а) 211212 б) 201212

Объяснение:

Т.к. это двоичная система, то полный десяток это 2. То есть:

1 + 1 = 2

1 + 2 = 11

2 + 2 = 12

а) 101012

  10112
 211212

б) 100012

101112

201212

3.
ответ: 1011001_(2)

Объяснение:

Было бы неплохо, конечно, еще указать в каком из четырех обратных кодов это надо представить, но ладно. Разберем случай первого обратного кода:

1) отбросить знак минус (-38) => 38

2) перевести в двоичный код: 38_(10) = 100110_(2)

3) инвертировать все биты: 100110_(2) => 011001_(2)

4) приписать слева единицу, как знак отрицательного числа: 011001_(2) => 1011001_(2)