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

//Pascal ABC.NET 3.1 сборка 1219Const n=100; Var ar:array[1..n] of integer; i,j:integer;beginwriteln('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.