В каждой строке матрицы A распечатать только те жлементы, модуль которых больше G
Код: Выделить всё
program lab_14;
uses crt;
const maxcount=50;
type matrix=array [1..maxcount,1..maxcount] of real;
var
matr: matrix;
n, m: integer;
min, max: real;
ask: char;
num: integer;
procedure EnterMatrixSize(var x,y: integer);
begin
repeat
write('Введите количество строк матрицы (1..',MAXCOUNT,') ');
readln(x);
if (x<1) then
writeln('Ошибка! Размерность матрицы не может быть '+'меньшей единицы. Повторите ввод.');
if (x>MAXCOUNT) then
writeln('Ошибка! Размерность матрицы не должна быть '+'большей ',MAXCOUNT,'. Повторите ввод.');
until (x>0)and(x<=MAXCOUNT);
repeat
write('Введите количество столбцов матрицы (1..',MAXCOUNT,') ');
readln(y);
if (y<1) then
writeln('Ошибка! Размерность матрицы не может быть '+'меньшей единицы. Повторите ввод.');
if (y>MAXCOUNT) then
writeln('Ошибка! Размерность матрицы не должна быть '+'большей ',MAXCOUNT,'. Повторите ввод.');
until (y>0)and(y<=MAXCOUNT);
end;
procedure EnterMatrix (x,y: integer; var M: Matrix);
var
i,j: integer;
begin
writeln('Введите элементы прямоугольной матрицы:');
for i:=1 to x do
for j:=1 to y do begin
write('M[',i,',',j,'] = ');
readln(M[i,j]);
end;
end;
procedure GenerateMatrix (x,y: integer; var M: Matrix);
var
i,j: integer;
begin
for i:=1 to x do
for j:=1 to y do
M[i,j] := random*(max-min)+min;
end;