[Андрей LP]

Дана трехмерная матрица, состоящия из элементов только 0 и 1, вывести проекцию сверху, спереди и сбоку. Помогите плиз... я ничего в этом не шарю

[lmikle]

1. Как должна задаваться матрица?
2. Какой размер матрицы?
3. Сумма оплаты работы?

[Страдалецъ]

Вы что никогда не видели как рисуют в черчении проекции деталей? Вот например.
Это ничем не отличается от вашего задания. Вот примерно так можно это реализовать:
Только в моем примере для наглядности я использую номера элементов, а у вас вместо строчки Cube[x,y,z] := n; вам надо написать Cube[x,y,z] := Random(2);

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Var
  Cube: Array of Array of Array of Integer;
  Size,x,y,z,n: Integer;
begin
 Size := 5;
 n := 1;
 SetLength(Cube, Size, Size, Size);
 for x := 0 to Size - 1
 do for y := 0 to Size - 1
    do for z := 0 to Size - 1
       do begin
          Cube[x,y,z] := n;
          Inc(n);
          end;
 WriteLn('XY');
 for y := 0 to Size - 1
 do begin
    for x := 0 to Size - 1
    do Write(Cube[x,y,0]:5);
    WriteLn;
    end;
 WriteLn('ZY');
 for y := 0 to Size - 1
 do begin
    for z := 0 to Size - 1
    do Write(Cube[0,y,z]:5);
    WriteLn;
    end;
 WriteLn('XZ');
 for x := 0 to Size - 1
 do begin
    for z := 0 to Size - 1
    do Write(Cube[x,0,z]:5);
    WriteLn;
    end;
 ReadLn;
end.