Вводятся 3 квадратные вещественные матрицы а, размерностью n< =20, b, размерностью m< =25 и c, размерностью k< =30. сдвинуть циклически на 3 позиции вправо ту матрицу, в которой наибольшая сумма элементов строк (т.е. нужно посчитать в каждой матрице сумму элементов в каждой строке и сравнить между собой) находится в последней строке. если есть гении напишите код(желательно в паскале надо делать с процедур

Var i,n,m: integer;     a: set of 0..9;     b: set of 0..9 =[0,1,2,3,4,5,6,7,8,9];       c: array[1..200] of integer; begin   write(' n = ');   readln(n);   randomize;   for i: =1 to n do   begin     c[i]: =random(255);     write(c[i],' ');   end;   writeln;   a: =[];   for i: =1 to n do     begin     m: =c[i];     while (m> 0) do     begin       a: =a+[(m mod 10)];       m: =m div 10;     end;   end;   b: =b-a;   if b< > [] then   begin     write('в записи чисел массива не содержатся цифры :   ');     foreach i in b do write(i,' ');   end   else   writeln('встречаются все цифры'); end.      

110  000  110  101 = 6 0 6 5сначала разбиваешь число на триады (по три цифры) начиная с младшего разряда. потом каждую триаду записываешь как восьмеричную цифру: 110 = 6 000 = 0 110 = 6 101 = 5 восьмеричные цифры берешь из таблицы перехода: 2-чная     8-чная 000       0 001       1 010       2 011       3 100       4 101       5 110       6 111       7