ПОМОГИТЕ С ЗАДАЧАМИ В ПАСКАЛЕ

2. С отдельной процедурой печати матрицы:

 uses crt; 

var  i, j: Integer;   

A: array[1..4, 1..4] of integer; 

procedure print(s: string); 

begin 

  writeln(s); 

  for i := 1 to 4 do 

    begin 

      for j := 1 to 4 do write(A[i, j]: 6); 

      writeln() 

    end 

end; 

begin 

  textcolor(black); 

  textbackground(white); 

  clrscr(); 

  randomize(); 

  for i := 1 to 4 do 

    for j := 1 to 4 do A[i, j] := random(47) - 23; 

  print('Сформированная матрица:'); 

  for i := 1 to 4 do 

    if A[i, i] < 0 then A[i, i]:= - A[i,i]; 

  print('Преобразованная матрица:') 

end. 

Без процедуры:

 var  i, j: integer;   

A: array[1..4, 1..4] of integer; 

begin 

  randomize(); 

  writeln('Сформированная матрица:'); 

  for i := 1 to 4 do 

    begin 

      for j := 1 to 4 do 

        begin 

          A[i, j] := random(47) - 23; 

          write(A[i, j]: 6) 

         end; 

       writeln() 

     end; 

  for i := 1 to 4 do 

    if A[i, i] < 0 then A[i, i]:= - A[i,i]; 

  writeln('Преобразованная матрица:'); 

  for i := 1 to 4 do 

    begin 

      for j := 1 to 4 do write(A[i, j]: 6); 

      writeln() 

    end 

end. 

1. А здесь некоторая трудность есть только в аккуратном выводе. Всё остальное несущественно. В общем проверяйте:

 var  i, j, k, l: integer; 

first, last: char; 

A: array[0..15] of char = ('0', '1', '2', '3', '4', 

'5', '6', '7', '8','9', 'A', 'B', 'C', 'D', 'E', 'F'); 

begin 

  write('       '); 

  for j := 1 to 15 do write(A[j]:4); 

  writeln(); 

  write('     '); 

  for i := 1 to 63 do write('_'); 

  writeln(); 

  for i := 1 to 15 do 

    begin 

      write(A[i], '    | '); 

      for j := 1 to 15 do 

        begin 

          k := i * j; 

          l := k div 16; 

          if (l > 0) then first := A[l] 

          else first := ' '; 

          last := A[k mod 16]; 

          write('  ', first, last) 

        end; 

      writeln() 

    end 

end. 

И самое главное - почему шизофреника не минусуете? Противно ведь даже в вопросы заходить, в которых топчутся эти сумасшедшие с их нейросетью GPT...

Для решения задачи №1 в Паскале, вы можете использовать следующий код:

```pascal

 program HexTable;  

 

var  

 

  i, j: Integer;  

 

begin  

 

  writeln('Таблица умножения в шестнадцатеричной системе:');  

 

  writeln('------------------------------------------');  

 

  for i := 1 to 15 do  

 

  begin  

 

    for j := 1 to 15 do  

 

    begin  

 

      write(Hex(i * j), ' ':6);  

 

    end;  

 

    writeln;  

 

  end;  

 

  writeln('------------------------------------------');  

 

  writeln('Таблица сложения в шестнадцатеричной системе:');  

 

  writeln('------------------------------------------');  

 

  for i := 1 to 15 do  

 

  begin  

 

    for j := 1 to 15 do  

 

    begin  

 

      write(Hex(i + j), ' ':6);  

 

    end;  

 

    writeln;  

 

  end;  

 

  writeln('------------------------------------------');  

 

end.  

```

Этот код создает таблицу умножения и сложения натуральных чисел от 1 до 15 в шестнадцатеричной системе счисления.

Для решения задачи №2 в Паскале, вам нужно сначала заполнить двумерный массив случайными числами от -23 до 23, затем сделать элементы главной диагонали положительными и вывести массив на экран. Вот код:

```pascal

 program DiagonalPositive;  

 

var  

 

  G: array[1..4, 1..4] of Integer;  

 

  i, j: Integer;  

 

begin  

 

  // Заполняем массив G случайными числами от -23 до 23  

 

  Randomize;  

 

  for i := 1 to 4 do  

 

  begin  

 

    for j := 1 to 4 do  

 

    begin  

 

      G[i, j] := Random(47) - 23;  

 

    end;  

 

  end;  

 

  

 

  // Делаем элементы главной диагонали положительными  

 

  for i := 1 to 4 do  

 

  begin  

 

    if G[i, i] < 0 then  

 

      G[i, i] := -G[i, i];  

 

  end;  

 

  

 

  // Выводим массив на экран с пояснениями  

 

  writeln('Двумерный массив G (4x4) после обработки:');  

 

  writeln('-------------------------------------');  

 

  for i := 1 to 4 do  

 

  begin  

 

    for j := 1 to 4 do  

 

    begin  

 

      write(G[i, j]:4, ' ');  

 

    end;  

 

    writeln;  

 

  end;  

 

  writeln('-------------------------------------');  

 

end.  

```

Этот код создает двумерный массив G размерностью 4x4, заполняет его случайными числами от -23 до 23, делает элементы главной диагонали положительными и выводит массив на экран с пояснениями.