Расшифровка матрицы Опции

[Ksander]

Не совсем простая задача,но говорят что решить можно,если честно,то я даже не представляю с чего начать,если есть знающие люди,то пусть подскажут

Текст вписываем столбиками в матрицу,а затем матрицу переписываем по строкам в заданном порядке.

Пример:
1.ПРИА
2.РАРН
3.ОМОИ
4.ГМВЕ
Выписываем 3,2,4,1-ю строки: ОМОИРАРНГМВЕПРИА

Расшифровать и ответить на вопрос для следующего порядка выписки строк 2,4,5,3,1 в матрице 5х5:АОННПАИСЫДСЬЕТНОЫ?КНТАИТККАЕОВ.

[volvo]

Ksander
Вообще-то 5х5=25, если я правильно помню ;) ... В строке же почему-то 30 символов... (Оказывается, задано 5 строк по 6 символов - в программе указаны изменения)... Задача решается так:

Код

const
 n = 5;
 order: array[1 .. n] of byte =
   (2, 4, 5, 3, 1);

var
 matrix: array[1 .. n] of string;
 i, j: byte;

const
 s: string = 'АОННПАИСЫДСЬЕТНОЫ?КНТАИТККАЕОВ';

begin
 for i := 1 to n do
   begin
     matrix[ order[i] ] := copy(s, 1, n+1); { Здесь должно быть N... }
     delete(s, 1, n+1); { здесь тоже N... }
   end;

 for j := 1 to n+1 do { и здесь N... }
   for i := 1 to n do
     write(matrix[i][j]);
end.

На вопрос ответите сами...

[Ksander]

извините ошибся,матрица 5х6