Цитата:
Сообщение от newkami
Код:
Procedure traekt;
begin
writeln('traektoriya:');
for j:=1 to n do
write(A[n,j]:5);
end;
Вот процедура которая выводит массив строку по заданной траектории.
Не представляю пока как поменять местами выделенные области массива... |
Так-то оно, конечно, так, но! Поскольку задача состоит не просто в том, чтобы вывести одномерный массив на экран, а еще и в том, чтобы с ним дальше работать (сортировать), то следует сделать так:
В раздел TYPE (исключительно для соблюдения стиля) добавить:
Код:
Vector=array[1..15] of integer;
В раздел VAR:
И, наконец, сама процедура. Либо так:
Код:
Procedure traekt;
begin
writeln('traektoriya:');
for j:=1 to n do
begin
V[j]:=A[n,j];
write(V[j]:5);
end;
end;
либо
Код:
Procedure traekt;
begin
writeln('traektoriya:');
V:=A[n];
for j:=1 to n do
write(V[j]:5);
end;