[Admiral]

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

[Drongo]

Admiral,

это частный случай. А я указал, что если фигура »

Спасибо, за разъяснения, а я наоборот, задание вспомнил.

[azbest]

Здесь скорее всего речь идёт о подсчёте чисел или определении матрицы. У них там какая то диагональ главная
А 2 ряд в трёхмерном массиве - это по простому сначала плоскость 2х4, а потом ещё 2 плоскости 2х4 получаем 2х4х3 и считаем вторую - среднюю плоскость 2х4. (если числа у нас негативные и позитивные - то моё рассуждение наверное тоже правильное)

[Admiral]

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

[Drongo]

azbest,

У них там какая то диагональ главная »

Как я понял, главная диагональ - считается от верхнего левого угла к нижнему правому углу. Только я думал, что искомые числа находятся под диагональю, а по ссылке, я понял, что и под и над ней. Но я понял, если матрица равномерная, например: 5х5 или 8х8, а тут ведь, 5х8. по любому диагональ не пройдёт от одного угла к другому, хотя может я не знаю чего-то?! Потом, у главной диагонали индексы одинаковые.

Код:

a[0][0]
a[1][1]
a[2][2]
a[3][3]

Но ведь опять-таки, это равномерные матрицы\массивы. А где она в неравномерном?!

Admiral,

В задачи сказан второй ряд, у которого ещё больше вариантов. »

Ещё больше? А я думал, 1-я диагональ строго по вертикали второй ряд, 2-я диагональ по горизонтали, и 3-я диагональ в глубину по плоскости. Тоесть три варианта...

Дигональ

[Admiral]

Drongo речь уже про 4е задание.

[Drongo]

Admiral,

Drongo речь уже про 4е задание. »

Так я понял, просто вы сказали

В задачи сказан второй ряд, у которого ещё больше вариантов »

а я не могу понять, сколько больше? Я вижу только три. О чём и написал.

Ещё больше? А я думал, 1-я диагональ строго по вертикали второй ряд, 2-я диагональ по горизонтали, и 3-я диагональ в глубину по плоскости. Тоесть три варианта... »

[Admiral]

Drongo, ну так и правильно: три больше чем два.

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

[verdix]

Вообшем вот, есть программа. В которой есть заполеный масив (рандом)

Код:

Program Z4;
uses Crt;
const X=2;
      Y=4;
      Z=3;
      Q=2;
var M1:array[1..X,1..Y,1..Z,1..Q] of integer;
    i,k,j,l,S:integer;
begin
     ClrScr;
     Randomize;
     S:=0;
     For i:=1 to X do
     For k:=1 to Y do
     For j:=1 to Z do
     For l:=1 to Q do
     begin
          M1[i,k,j,l]:=Random(5)+1;
          S:=S+M1[i,k,j,l];
          Writeln(M1[i,k,j,l]);

     end;
     
     Writeln(S);
     Readln;



end.

Как сделать так, чтобы он вывел этот масив в приблезительно таком виде

Код:

1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8

[Admiral]

Хм... Программа заполняет массив 4го порядка 2х4х3х2, это видно по эти строчкам кода

Код:

const X=2;
      Y=4;
      Z=3;
      Q=2;
...
     For i:=1 to X do
     For k:=1 to Y do
     For j:=1 to Z do
     For l:=1 to Q do

Так что для требуемого вывода массива 2го порядка 5x8 программу не то что стоит переделать но и упростить.

Код:

Program Z4;
uses Crt;
const X=5;
          Y=8;
var M1:array[1..X,1..Y] of integer;
i,j:integer;
begin
     ClrScr;
     Randomize;
     For i:=1 to X do
     Begin
         For j:=1 to Y do
         begin
          M1[i,j]:=Random(5)+1;
          Writeln(M1[i,j]);Write(M1[i,j],' ');
         end;
      Writeln;
     end;
 Readln;
end.

P.S.
Если упрощение не нужно, то к исходной проге требуется добавить выделенные строки и исправить перечёркнутую строчку кода.