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