Question

Помогите пожалуйста решить в Паскале. Заполнить произвольный массив размером N x N (N<10) по следующему правилу: 12345 54321 12345 54321 12345

Answer 1

Const
  nn=10;
var
  i,j,n:integer;
begin
  Write('Введите число строк в массиве (2..9): ');
  Read(n);
  if (n<2) or (n>9) then writeln('Неверное значение')
  else
    for i:=1 to n do
    begin
      if (i mod 2)<>0 then for j:=1 to n do Write(j)
      else for j:=n downto 1 do Write(j);
      Writeln
    end
end.

Тестовое решение:
Введите число строк в массиве (2..9): 5
12345
54321
12345
54321
12345

Answer 2

Для решения данной задачи вам потребуется использовать двойной цикл для заполнения массива по заданному правилу. Вот пример кода на языке Паскаль:

program FillArray;
var
  N, i, j: integer;
  arr: array[1..10, 1..10] of integer;
begin
  // Ввод размера массива
  write('Введите размер массива (N < 10): ');
  readln(N);
  
  // Заполнение массива по заданному правилу
  for i := 1 to N do
  begin
    if i mod 2 = 1 then
    begin
      for j := 1 to N do
        arr[i, j] := j;
    end
    else
    begin
      for j := 1 to N do
        arr[i, j] := N - j + 1;
    end;
  end;
  
  // Вывод массива
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(arr[i, j]);
    writeln;
  end;
end.

В этом коде мы сначала запрашиваем у пользователя размер массива `N`. Затем мы используем два вложенных цикла для заполнения массива `arr` в соответствии с заданным правилом. Если номер строки `i` нечетный, то мы заполняем элементы массива значениями от 1 до `N` по возрастанию. Если номер строки `i` четный, то мы заполняем элементы массива значениями от `N` до 1 по убыванию. После заполнения массива мы выводим его на экран.

Например, если пользователь вводит `N = 5`, то массив будет заполнен следующим образом:

12345
54321
12345
54321
12345

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.