СДЕЛАЙТЕ 3Д МОДЕЛЬ ЛАВОЧКИ ТОЧЬ В ТОЧЬ ЧТО ПОКАЗАНО НА РИСУНКЕ

Var a:array of array of integer;
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;

writeln('Matrix A:');   //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
 writeln;
  for j:=1 to n do
   begin;
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
 end;
writeln;

writeln('Matrix C:'); //аналогично
for i:=1 to n do
 begin;
 writeln;
  for j:=1 to n do
   begin;
    c[i,j]:=random(10);
    write(c[i,j]:4);
   end;
 end;

for i:=1 to n do     //сохраняем матрицу C для транспонации
  for j:=1 to n do
    ma[i,j]:=c[i,j];
    writeln;

writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     c[i,j]:=ma[j,i];
     write(c[i,j]:4);
    end;
 end;

writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
     write(ma[i,j]:4);
    end;
 end;
end.

4)  0  1  2  3  4  5  4  3  2  1  0

Объяснение:

Заполнение массива:

для i от 0 до 10 выполнить a[i] = i

i = 0       a[0] = 0

i = 1        a[1] = 1

i = 2       a[2] = 2

Т.е. значение элемента массива равно индексу элемента.

Первоначальный массив выглядит так:  0  1  2  3  4  5  6  7  8  9  10

Изменение массива:

для i от 0 до 10 выполнить

Действия в цикле:

1) a[10-i] = a[i]

2) a[i] = a[10-i]

i = 0

Действия в цикле:

1) a[10-0] = a[0]   (a[i] значение элемента берём из первоначального массива)   a[10] = 0

2) a[0] = a[10-0]       a[0] = a[10]       a[0] = 0

i = 1

Действия в цикле:

1) a[10-1] = a[1]   (a[i] значение элемента берём из первоначального массива)   a[9] = 1

2) a[1] = a[10-1]       a[1] = a[9]       a[1] = 1

i = 2

Действия в цикле:

1) a[10-2] = a[2]   (a[i] значение элемента берём из первоначального массива)   a[8] = 2

2) a[2] = a[10-2]       a[2] = a[8]       a[2] = 2

i = 3

Действия в цикле:

1) a[10-3] = a[3]   (a[i] значение элемента берём из первоначального массива)   a[7] = 3

2) a[3] = a[10-3]       a[3] = a[7]       a[3] = 3

i = 4

Действия в цикле:

1) a[10-4] = a[4]   (a[i] значение элемента берём из первоначального массива)   a[6] = 4

2) a[4] = a[10-4]       a[4] = a[6]       a[4] = 4

i = 5

Действия в цикле:

1) a[10-5] = a[5]   (a[i] значение элемента берём из первоначального массива)   a[5] = 5

2) a[5] = a[10-5]       a[5] = a[5]       a[5] = 5

Промежуточный массив выглядит так:  0  1  2  3  4  5  4  3  2  1  0

i = 6

Действия в цикле:

1) a[10-6] = a[6]   (a[i] значение элемента берём из промежуточного массива)   a[4] = 4

2) a[6] = a[10-6]       a[6] = a[4]       a[6] = 4

i = 7

Действия в цикле:

1) a[10-7] = a[7]   (a[i] значение элемента берём из промежуточного массива)   a[3] = 3

2) a[7] = a[10-7]       a[7] = a[3]       a[7] = 3

i = 8

Действия в цикле:

1) a[10-8] = a[8]   (a[i] значение элемента берём из промежуточного массива)   a[2] = 2

2) a[8] = a[10-8]       a[8] = a[2]       a[8] = 2

i = 9

Действия в цикле:

1) a[10-9] = a[9]   (a[i] значение элемента берём из промежуточного массива)   a[1] = 1

2) a[9] = a[10-9]       a[9] = a[1]       a[9] = 1

i = 10

Действия в цикле:

1) a[10-10] = a[10]   (a[i] значение элемента берём из промежуточного массива)    a[0] = 0

2) a[10] = a[10-10]       a[10] = a[0]       a[10] = 0

Окончательный массив выглядит так:  0  1  2  3  4  5  4  3  2  1  0