Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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