Написать в Паскале массив вида 0001 0010 0100 1000 Должно получиться примерно как **...

Question

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

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

---

Comments

Массив из 4х элементов? const a:array[1..4] of string=('0001','0010','0100','1000');

---

Там как-то так должно быть , только немного изменить. (Тут 1000

---

Тут никак файл не прикрепить?

---

Почему же, прикрепляются и даже больше одного

---

Вон в других заданиях взгляните

---

Прикрепила

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

Comments

Спасибо с:

---

пожалуйста