Закодировать своё имя и фамилию взяв в качестве кляча своё отчество (челнокова екатерина романовна) вот моё имя, фамилия, отчество.

в алфавите всего 33 буквы,следовательно подставим буквы под цифровые значения,получается,что: 1-а2-б33-ячелнокова-256131516121631екатерина-61212061810151романовна-181614115163151

 

Program zadacha; const n = 10; m = 10; max = 15; var a: array [1..n, 1..m] of integer; b: array[1..n] of integer; c: array[1..n] of real; min, sum, count, i, j: integer; begin randomize; for i : = 1 to n do for j : = 1 to m do a[i, j] : = random(max * 2) - max; min : = max; for i : = 1 to n do for j : = 1 to m do if a[i, j] < min then min : = a[i, j]; for i : = 1 to n do for j : = 1 to m do if a[i, j] = min then b[i] : = 1; sum : = 0; count : = 0; for i : = 1 to n do begin for j : = 1 to m do if (a[i, j] mod 2 = 0) and (a[i, j] > = 0) then begin sum : = sum + a[i, j]; count : = count + 1; end; c[i] : = sum / count; sum : = 0; count : = 0; end; writeln('массив a: '); for i : = 1 to n do begin for j : = 1 to m do write(a[i, j], ' '); writeln; end; writeln('массив b: '); for i : = 1 to n dowrite(b[i], ' '); writeln; writeln('массив c (среднее арифметиеское положительных четных элементов массива a): '); for i : = 1 to n do write(c[i]: 5: 2, ' '); readln; end.

Вматрице 42 элемента. заполним её случайными значениями в диапазоне от  x/2 до  2*y, тогда в среднем половина значений попадет в заданный диапазон. const   m=6;   n=7; var   a: array[1..m,1..n] of integer;   i,j,k,x,y,x1,y1,s: integer; begin   randomize;   write('введите через пробел x и y: '); read(x,y);   if y< x then begin s: =x; x: =y; y: =s end;   writeln('исходный массив');   if x< 0 then x1: =2*x else x1: =x div 2;   if y< 0 then y1: =y div 2 else y1: =2*y;   k: =y1-x1+1; s: =0;   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i,j]: =random(k)+x1;           write(a[i,j]: 4);           if (a[i,j]> =x) and (a[i,j]< =y) then s: =s+a[i,j]       end;       writeln   end;   for j: =1 to n do a[1,j]: =s;   writeln('результирующая матрица');   for i : = 1 to m do   begin       for j : = 1 to n do write(a[i,j]: 4);       writeln   end end. тестовое решение: введите через пробел x и y: -5 10 исходный массив     0  11  -6  15  -8  -2  -6     9    0    6    1  11  -2  -1     2    9  13  -1    6    0    9     6    1  -5    8  -3    0  -5     8    4  -8    7  -6    6  11   18  -1  15  -8  -9  -9  20 результирующая матрица   62  62  62  62  62  62  62     9    0    6    1  11  -2  -1     2    9  13  -1    6    0    9     6    1  -5    8  -3    0  -5     8    4  -8    7  -6    6  11   18  -1  15  -8  -9  -9  20