Question

ПОЖАЛУЙСТА ПОМОГИТЕ. Дан целочисленный массив В[1..5, 1..5]. Напечатать его главную и побочную диагонали. Паскаль

Answer 1

===== PascalABC.NET =====

begin

 var b := MatrRandom(5, 5, -99, 99);

 b.Println(4);

 var n := b.RowCount;

 Print('Главная:');

 for var i := 0 to n - 1 do

   Print(b[i,i]);

 Writeln;

 Print('Побочная:');

 for var i := 0 to n - 1 do

   Print(b[i, n - i - 1]);

end.

Answer 2

Конечно! Вот пример решения данной задачи на языке Паскаль:

pascalCopy code
program Main;

const
  N = 5;

type
  Matrix = array[1..N, 1..N] of Integer;

procedure PrintDiagonals(var B: Matrix);
var
  i: Integer;
begin
  writeln('Главная диагональ:');
  for i := 1 to N do
    write(B[i, i], ' ');
  
  writeln;
  writeln('Побочная диагональ:');
  for i := 1 to N do
    write(B[i, N - i + 1], ' ');
end;

var
  B: Matrix;
  i, j: Integer;
begin
  // Заполняем массив B
  for i := 1 to N do
    for j := 1 to N do
    begin
      writeln('Введите элемент B[', i, ',', j, ']: ');
      readln(B[i, j]);
    end;

  // Вызываем процедуру для печати диагоналей
  PrintDiagonals(B);
end.

В этом примере программа принимает значения элементов массива B[1..5, 1..5] от пользователя и затем печатает главную и побочную диагонали. Массив B объявлен как тип Matrix, и процедура PrintDiagonals принимает этот массив по ссылке и печатает диагонали.

Пожалуйста, обратите внимание, что я предоставил решение на языке Паскаль, но если вам нужно решение на другом языке программирования, дайте мне знать, и я смогу предоставить соответствующий код.