Question

Написать в Паскале массив вида

0001
0010
0100
1000
Должно получиться примерно как на фотографии , но там массив 1000 0100 0010 0001

Answer 1

Var
  a:array[1..4,1..4] of byte;
  i,j:integer;
begin
  for i:=1 to 4 do
  begin
    for j:=1 to 4 do
    begin
      if i=(5-j) then a[i,j]:=1 else a[i,j]:=0;
      Write(a[i,j])
    end;
    Writeln
  end
end.

Результат выполнения программы:
0001
0010
0100
1000