1. имеется одномерный массив размерностью 20, заполненный рандомными числами на отрезке от 1 до 20. требуется удалить из него максимальный и минимальный элементы примечание: алгоритм удаления: сдвигаются все элементы на 1 позицию влево, начиная с элемента, значение которого оказалось максимальным; последнему элементу присваивается значение 0; при выводе массива уменьшается количество выводимых элементов на 1. пример 11 20 15 9 14 10 удаление элемента №2 11 15 9 14 10 0 вывод 11 15 9 14 10 выполнить сложение матрицы a[3x4} и матрицы в[3x4], заполненных случайными однозначными числами в полученной матрице с перераспределить элементы в столбцах следующим образом: отсортировать первую строку матрицы по убыванию; остальные элементы каждого столбца должны переместиться в тот же столбец, куда переместился их первый (верхний) элемент, т.е. следовать за ним.

Const     n = 20; var     a: array[1..n] of integer;     i,m: integer; begin randomize; write('исходный массив: '); m: =1; for i: = 1 to n do       begin       a[i]: =random(n+1);       write(' ',a[i]);       if a[i] > a[m] then m: =i;       end; writeln; writeln('max = ',a[m],'[',m,']'); if m < n then     for i: = m to n-1 do             a[i]: =a[i+1]; m: =1; for i: = 1 to n-1 do       if a[i] < a[m] then m: =i; writeln('min = ',a[m],'[',m,']'); if m < n then     for i: = m to n-1 do             a[i]: =a[i+1]; write('после удаления max и min: '); for i: = 1 to n-2 do       write(' ',a[i]) end. const     n = 3;     m = 4; var     a,b,c: array[1..n,1..m] of shortint;     i,j,max,t: integer; begin randomize; writeln('матрица a: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random(19)-9;               write(a[i,j]: 2,' ')               end;       writeln       end; writeln('матрица b: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               b[i,j]: =random(19)-9;               write(b[i,j]: 2,' ');               end;       writeln       end; writeln('a+b: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               c[i,j]: =a[i,j]+b[i,j];               write(c[i,j]: 3,' ');               end;       writeln       end; for i: = 1 to n do       begin       max: =i;       for j: = i+1 to m do               if c[1,j] > c[1,max] then max: =j;       for j: = 1 to n do               begin               t: =c[j,max];               c[j,max]: =c[j,i];               c[j,i]: =t               end;       end; writeln('матрица c: '); for i: = 1 to n do       begin       for j: = 1 to m do               write(c[i,j]: 3,' ');       writeln       end; readln end.

Так как в слове 10 букв это 10 символов. один символ = 1 байт = 8 бит. вы получили 1 байт или 8 бит информации.