Решить у шкільній виставці беруть участь 26 картин. із них 12 картин виконано аквареллю, 17 є  портретами, 13 написано в  стилі кубізм. відомо, що аквареллю виконано 4 портрета і  5 картин у  стилі кубізм, окрім того, 9 портретів написано в  стилі кубізм. скільки портретів виконано аквареллю в  стилі кубізм?

1. поменяны прописные и строчные буквы: закодированные слова начинаются со строчных букв, а остальные прописные, хотя в исходных словах все наоборот. 2. длина слов сохранилась, как было три пятибуквенных имени и три шестибуквенных, так и осталось, следовательно одни символы были заменены на другие. 3. в имени филипп две последние буквы и среди закодированных слов есть одно шестибуквенное тхкхоо, в котором две последние буквы. также есть имя максим, в котором первая и последняя буквы , а среди закодированных есть шестибуквенное люйяхл. на этом основании предполагаем, что произведена подмена одной буквы другой, причем  подмена постоянная, т.е. конкретная буква всегда подменяется одной и той же. 4. мы нашли два шестибуквенных имени, следовательно третье ( густав) закодировано как цсярюб.5. среди пятибуквенных имен два начинаются на одну и ту же букву (а), а среди закодированных имен есть два, начинающиеся на "ю", тогда оставшееся бюдхл - это имя вадим.6. в слове юмрнм вторая и последняя буквы. в имени антон они также , следовательно оставшееся юпр╦л - это артём.окончательно: юпр╦л - артёмюмрнм - антон бюдхл - вадим люйяхл - максим цсярюб - густав тхкхоо - филипп

// pascalabc.net 3.0, сборка 1073 const   nn=30;   mm=30; var   a: array[1..mm,1..nn] of integer;   m,n,i,j,imax,jmax: integer; begin   writeln('введите число строк и столбцов массива: '); read(m,n);   randomize;   writeln('*** исходный массив ***');   imax: =1; jmax: =1;   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =random(51)-25;           write(a[i,j]: 4);           if a[i,j]> a[imax,jmax] then               begin imax: =i; jmax: =j end       end;       writeln   end;   for i: =1 to m do a[i,jmax]: =0;   for j: =1 to n do a[imax,j]: =0;   writeln('*** результирующий массив ***');   for i: =1 to m do begin       for j: =1 to n do write(a[i,j]: 4);       writeln   end end. тестовое решение: введите число строк и столбцов массива: 5 8 *** исходный массив ***   11 -10 -25 -25 -19  -3  -2    0   -24    1    5 -25 -21 -16 -16 -22   -21 -10 -12    7  20  16    0 -10   -13  25 -18  18  -5    9  15    1   -19 -10 -16    9 -11  11  24 -19 *** результирующий массив ***   11    0 -25 -25 -19  -3  -2    0   -24    0    5 -25 -21 -16 -16 -22   -21    0 -12    7  20  16    0 -10     0    0    0    0    0    0    0    0   -19    0 -16    9 -11  11  24 -19