Question

Задача с помощью Паскаля: заполнить таблицу из 7 строк и 7 столбцов случайными числами в интервале [-10;10] и вывести на экран. Обнулить элементы выделенные зеленым цветом. вот по первой картинке СЛЕВА. Вот что должно получиться:
1111111
1111101
1111001
1110001
1100001
1000001
1111111

Answer 1

var
  a: array [0..6, 0..6] of integer;
  i, j: integer;

begin
  for i := 0 to 6 do
  begin
    for j := 0 to 6 do
    begin
      a[i, j] := random(21) - 10;
      write(a[i, j]:4);
    end;
    writeln();
  end;
  
  for i := 1 to 5 do
    for j := 1 to i do
      a[i, 6 - j] := 0;
 
    writeln();

    for i := 0 to 6 do
  begin
    for j := 0 to 6 do
      write(a[i, j]:4);
    writeln();
  end;
end.