Question

Вывести на экран значения массива из 100 элементов по спирали. Будем понимать под этим следующее: выводить по 10 элементов в каждой строке, при этом каждая вторая строка должна выводиться "задом наперед": сначала последние элементы строки, а затем первые.

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

Const
 n=100;

 Var
 ar:array[1..n] of integer;
 i,j:integer;
begin
writeln('Array:');
for i:=1 to 100 do
 begin
  ar[i]:=i;
  write(ar[i]:4);
 end;
writeln;
writeln('Result:');
for i:=0 to 9 do
 if not(odd(i)) then
  begin
   for j:=1 to 10 do
    write(ar[i*10+j]:4);
   writeln;
  end
  else
  begin
   for j:=10 downto 1 do
    write(ar[i*10+j]:4);
   writeln;
  end;
end.

Answer 2

Для решения данной задачи можно использовать следующий алгоритм:

1. Создать двумерный массив arr размером 10x10 и заполнить его значениями от 1 до 100 (в данном примере будем предполагать, что значения в массиве уже заданы).

2. Создать переменные row и col, которые будут хранить индексы текущей строки и столбца.

3. Создать переменные increment и decrement, которые будут хранить значения, определяющие направление движения по массиву. В начале работы программы increment = 1, decrement = -1.

4. Создать цикл, повторяющийся 10 раз (количество строк в массиве).

5. Внутри цикла создать вложенный цикл, повторяющийся 10 раз (количество столбцов в массиве).

6. Внутри вложенного цикла вывести значение текущего элемента массива arr[row][col] на экран.

7. После вывода значения элемента массива проверить текущую строку (row). Если она четная, то изменить значение col на 9 - col (по правилу "задом наперед").

8. После этого увеличить или уменьшить значение col на increment в зависимости от текущего направления движения по строке. Если значение col стало меньше 0 или больше 9, изменить направление движения, увеличив или уменьшив значение row на increment.

9. Повторять шаги с 5 по 8, пока выводится последний элемент массива.

Таким образом, данный алгоритм с помощью двух циклов обеспечивает вывод значений массива по спирали, с учетом условий задачи.