Предмет: Информатика,
автор: zxbaza100
Здравствуйте, пожалуйста помогите, завтра последний день экзамента мне надо принести программу:
Опредедить номера строк матрицы в которых элементы в которых элементы расположены в порядке убывания
Ответы
Автор ответа:
1
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
Похожие вопросы
Предмет: Алгебра,
автор: wxxmxx
Предмет: Литература,
автор: marinagrecanaa7
Предмет: География,
автор: dimazcvetov
Предмет: Геометрия,
автор: leracom1291
Предмет: Биология,
автор: Kris321