Вывести на экран значения массива из 100 элементов по спирали. Будем понимать под этим следующее: выводить по 10 элементов в каждой строке, при этом каждая вторая строка должна выводиться "задом наперед": сначала последние элементы строки, а затем первые.
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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
