Здравствуйте, пожалуйста помогите, завтра последний день экзамента мне надо принести программу:
Опредедить номера строк матрицы в которых элементы в которых элементы расположены в порядке убывания
Опредедить номера строк матрицы в которых элементы в которых элементы расположены в порядке убывания
Answers & Comments
program raf105;
const
n = 3;
var
m: array[1..n, 1..n] of integer;
x: boolean;
i,j: integer;
begin
writeln('Матрица:');
for i:=1 to n do
begin
x:= True;
for j:=1 to n do
begin
m[j,i]:= random(10,99);
write(m[j,i],' ');
end;
writeln;
end;
writeln('Номера убывающих строк:');
for i:=1 to n do
begin
x:= True;
for j:=2 to n do
if not(m[j,i] < m[j-1,i]) and x then
x:= False;
if x then
write(i,' ');
end;
end.
PascalABC