7. ввести вещественную матрицу размером m*n. вывести индексы тех строк, в которых есть хотя бы одно значение, дробная часть которого меньше 0.55, или сообщение об отсутствии в матрице таких значений. 8. ввести квадратную матрицу порядка n. вычислить произведение элементов, расположенных на главной диагонали. сформировать одномерный массив из элементов исходной матрицы, расположенных ниже главной диагонали и больших произведения ее элементов. вывести полученный массив или сообщение об отсутствии таких элементов. 9. дан одномерный целочисленный массив размерностью n. сформировать новый массив из элементов исходного, расположенных до первого отрицательного элемента и большего первого элемента исходного массива. если такие элементы отсутствуют, то выдать об этом сообщение

Program drob_0_55;   uses crt;   const m=5;               n=6;   type mat=array[1..m, 1..n] of real;   var a: mat;         i,j: integer;         frc: real;         flag: boolean; begin   clrscr;     randomize;                           {датчик сч}     for i: =1 to m do                      {цикл ввода и вывода массива}     begin         for j: =1 to n do               begin                     a[i,j]: =(10+random(70))/100;                     write (a[i,j]: 6: 2);                 end;     writeln;     end;     for i: =1 to m do                {поиск}           begin           flag: =false;           for j: =1 to n do                   begin                         frc: =frac(a[i,j]);                         if frc> 0.55 then flag: =true;                   end;           if flag then writeln('‘строка: ', i);           end;           if flag=false then writeln('не найдено! ');   readln;                                                     {ожидание нажатия enter} end.                                                                                              f

Объяснение:

Если русский алфавит, то это 33 буквы

значит 33×7= 231 бит

Можно лучший ответ?))