Вывести ** экран значения массива из 100 элементов по спирали. Будем понимать под этим...

Question

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

Comments

Так это не спираль, а змейка по строкам.

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.