Question

«Зебра». Массив полностью заполнен нулями. Измените значения на 1 для 1-го, 3-го, 5-го, 7-го, 9-го столбцов. Pascal

Answer 1

PascalABC.NET

• ##
• var a := ArrFill(10, 0);
• a.Println;
• a.Transform((x, i) -> i.IsOdd ? x : 1);
• a.Print

Пример работы:

Answer 2

Если вы хотите создать массив "Зебра" и изменить значения в определенных столбцах на 1 в языке программирования Pascal, вы можете воспользоваться следующим кодом:

pascalCopy code
program ZebraArray;
const
  Rows = 10;
  Columns = 10;

var
  Zebra: array[1..Rows, 1..Columns] of Integer;
  i, j: Integer;

begin
  // Заполнение массива нулями
  for i := 1 to Rows do
    for j := 1 to Columns do
      Zebra[i, j] := 0;

  // Изменение значений в определенных столбцах на 1
  for i := 1 to Rows do
  begin
    if (i mod 2) = 1 then
    begin
      Zebra[i, 1] := 1;
      Zebra[i, 3] := 1;
      Zebra[i, 5] := 1;
      Zebra[i, 7] := 1;
      Zebra[i, 9] := 1;
    end;
  end;

  // Вывод массива
  for i := 1 to Rows do
  begin
    for j := 1 to Columns do
      Write(Zebra[i, j], ' ');
    Writeln;
  end;
end.

Этот код создает двумерный массив размером 10x10, заполненный нулями. Затем он изменяет значения в указанных столбцах (1, 3, 5, 7 и 9) в каждой нечетной строке на 1. Наконец, он выводит результат на экран.