Question

65 баллов даю. Pascal abc. Дан массив размером n×n, элементы которого целые числа. Вывести на экран элементы, расположенные под главной и под побочной диагональю. При решении использовать двумерный массив.

Answer 1

Если я правильно понял, то

var a: array of array of integer;

n,i,j: integer;

begin

write('Введите N: ');

readln(n);

setlength(a,n);

for i:=0 to n-1 do setlength(a[i],n);

for i:=0 to n-1 do

for j:=0 to n-1 do a[i,j]:=random(n)*2;

writeln('Вывод матрицы :');

for i:=0 to n-1 do begin

writeln;

for j:=0 to n-1 do write(a[i,j],' ');

end;

writeln;

writeln('Главная диагональ :');

for i:=0 to n-1 do for j:=0 to n-1 do if (i-j=0) then write(a[i,j],' ');

writeln;

writeln('Побочная диагональ :');

for i:=0 to n-1 do for j:=0 to n-1 do if (i+j=n-1) then write(a[i,j],' ');

readln;

end.

Answer 2

Спасибо за оценку! Чтобы вывести элементы, расположенные под главной и под побочной диагональю в двумерном массиве размером n×n, вам потребуется использовать двойной цикл (цикл внешний по строкам и цикл внутренний по столбцам). В Pascal это будет выглядеть следующим образом:

pascalCopy code
program DiagonalElements;

const
  n = 5; // Размер массива (здесь пример для n=5)

var
  arr: array[1..n, 1..n] of Integer;
  i, j: Integer;

begin
  // Заполнение массива случайными значениями (для примера)
  Randomize;
  for i := 1 to n do
    for j := 1 to n do
      arr[i, j] := Random(100); // Здесь 100 - максимальное значение элемента, можно изменить по своему усмотрению

  // Вывод элементов под главной диагональю
  writeln('Элементы под главной диагональю:');
  for i := 2 to n do
  begin
    for j := 1 to i - 1 do
      write(arr[i, j]:4); // 4 - ширина поля вывода, можно изменить по своему усмотрению
    writeln;
  end;

  // Вывод элементов под побочной диагональю
  writeln('Элементы под побочной диагональю:');
  for i := 1 to n - 1 do
  begin
    for j := n - i + 1 to n do
      write(arr[i, j]:4); // 4 - ширина поля вывода, можно изменить по своему усмотрению
    writeln;
  end;
end.

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