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

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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы