Question

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

Answer 1

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