Вопрос ученика
здравствуйте, пожалуйста помогите, завтра последний день экзамента мне надо принести программу:
Опредедить номера строк матрицы в котооых элементы в которых элементы расположены в порядке убывания
Ответ учителя
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.
