Question

здравствуйте, пожалуйста помогите, завтра последний день экзамента мне надо принести программу:
Опредедить номера строк матрицы в котооых элементы в которых элементы расположены в порядке убывания​

Answer 1

program pr;

label cyc;

const

sizeX = 4; // количество ячеек в каждой строке

sizeY = 4; // количество строк

var

matrix: array[1..sizeY, 1..sizeX] of integer;

i,k:integer;

begin

writeln('Чтение элементов массива');

for i:=1 to sizeY do for k:=1 to sizeX do readln(matrix[i,k]);

writeln('Исходный массив:');

for i:=1 to sizeY do begin

for k:=1 to sizeX do begin

 write(matrix[i,k]);

end;

writeln('');

end;

writeln('Подходящие строки: ');

for i:=1 to sizeY do begin

for k:=2 to sizeX do begin

  if matrix[i,k]>=matrix[i,k-1] then goto cyc;

end;

writeln(i);

cyc:

continue;

end;

end.