Agusha111
18.01.2023 17:29

Буду рад за
Задачи с С++.
12.74. Дан двумерный массив. Найти число пар одинаковых соседних элементов.
В качестве соседних рассматривать:
а) только элементы, расположенные в одной строке;
б) только элементы, расположенные в одном столбце;
в)* элементы, расположенные в одной строке и в одном столбце.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Rivergeenger
15.03.2020 16:17

Я бы посоветовал вместо прямого перевода 2 <-> 10 работать через 16ричную систему счисления. Алгоритмы те же, вычислений меньше, значит меньше и ошибок. А двоичные значения 16 цифр очень легко запомнить.

Гляди, как просто получится

1.

96 = 60h = 0110 0000b

53 = 35h = 0011 0101b

74 = 4Ah = 0100 1010b

80 = 50h = 0101 0000b

122=7Ah=  0111 1010b

 

2.

   1010011b = 0101 0011b = 53h = 5*16+3=83

   10011101b= 1001 1101b = 9Dh = 9*16+13 = 157

   11011111b= 1101 1111b = DFh = 13*16+15= 223

 

3.

  1010011b +   110101b = 0101 0011b + 0011 0101b = 53h + 35h = 88h = 1000 1000b

11011111b + 1111010b = 1101 1111b + 0111 1010b =  DFh+7Ah = 159h= 0001 0101 1001b

 

 

Замечание1. Для решения последнего примера нужно, конечно, знать таблицу сложения 16-ричных цифр.

 

Замечание2 Напомню перевод 10 ->16, повторюсь, алгоритм тот же, что и 10->2

Например

122/16 = 7 (ост 10), значит 122=7Аh

 

Замечание3 И последнее, в практической деятельности 2-ичная система практически не используется, профессионалы, если нужно, работают с 16-ричной(это связано с тем, что байт, так уж случилось, равен 8 бит).

 

Ну, вроде всё.

 

0,0(0 оценок)
Ответ:
feliz3600
17.11.2020 18:03
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,50);
  Writeln('Исходный массив'); a.Println;
  var se:=a.Where(x->x mod 3=0);
  if se.Count=0 then
    Writeln('В массиве нет элементов, кратных трем')
  else begin
    var b:=se.Max;
    var i:=0;
    while a[i]<>b do Inc(i);
    if i=n-1 then Writeln('Максимальный элемент - последний')
    else begin
      Writeln('Результирующий массив');
      a[i+1]:=abs(a.Where(x->x<0).Sum); a.Println
      end
    end
end.

Тестовое решение:
n= 15
Исходный массив
-24 -38 15 -33 -40 -18 21 34 20 49 -19 29 29 38 -41
Результирующий массив
-24 -38 15 -33 -40 -18 21 213 20 49 -19 29 29 38 -41
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота