Заполнить трехмерный массив целыми числами по правилу

@morpex224 · Регистрация: 10.04.2018

Author24 — интернет-сервис помощи студентам

Заполнить трехмерный массив целыми числами по правилу (элементы на гранях равны единице все остальные нули). По схматичним представлением.

@JuriiMW · 13.04.2018, 06:37

Pascal

const n = 5;
var
  a : array [1..n,1..n,1..n] of Integer;
  x, y, z : Integer;
begin
  for x := 1 to n do
    for y := 1 to n do
      for z := 1 to n do
        a[x,y,z] := 0;
 
  for x := 1 to n do
    begin
      a[x,1,1] := 1; a[x,n,1] := 1; a[x,1,n] := 1; a[x,n,n] := 1;
      a[1,x,1] := 1; a[n,x,1] := 1; a[1,x,n] := 1; a[n,x,n] := 1;
      a[1,1,x] := 1; a[n,1,x] := 1; a[1,n,x] := 1; a[n,n,x] := 1;
    end;
 
  for x := 1 to n do
    begin
      for y := 1 to n do
        begin
          for z := 1 to n do Write(#32,a[x,y,z]);
          WriteLn;
        end;
      WriteLn;
    end;
end.

@morpex224 -5 / 0 / 0 Регистрация: 10.04.2018 Сообщений: 23
		1
	Заполнить трехмерный массив целыми числами по правилу 13.04.2018, 00:30. Показов 1185. Ответов 1 Метки нет (Все метки) Заполнить трехмерный массив целыми числами по правилу (элементы на гранях равны единице все остальные нули). По схматичним представлением. 0

	13.04.2018, 06:37

Опции темы

Заполнить трехмерный массив целыми числами по правилу

Решение