Question

Помогите пожалуйста! Паскаль!

Answer 1

№1

var  mass:array [0..6, 0..6] of integer;
begin  //заполняем массив  for var i := 0 to 6 do    begin      mass[i][i] := 1;      mass[i][6-i] := 1;    end;    //выводим массив  for var i := 0 to 6 do    begin      for var m := 0 to 6 do      begin        write(mass[i][m], '  ');      end;      writeln();    end;end.

--------------------------------

№2

var  mass:array [0..6, 0..6] of integer;
begin  //заполняем массив  for var i := 0 to 6 do    begin      mass[i][i] := 1;      mass[i][6-i] := 1;      mass[i][3] := 1;      mass[3][i] := 1;    end;    //выводим массив  for var i := 0 to 6 do    begin      for var m := 0 to 6 do      begin        write(mass[i][m], '  ');      end;      writeln();    end;end.