Дана матрица размера M × N. Найтиминимальный среди элементов тех строк, которые упорядочены либо повозрастанию, либо по убыванию
<span>Дана матрица размера M × N. Найти минимальный среди элементов тех строк, которые упорядочены либо по возрастанию, либо по убыванию. Если упорядоченные строки в матрице отсутствуют, то вывести 0.
</span><span>Дана матрица размера M × N. Упорядочить ее строки так, чтобы их минимальные элементы образовывали убывающую последовательность.
Задача № 1) Код программы получился довольно таки большой , но можно сам файл *.pas Закинуть в интернет и оттуда скачать. Задача №2)
uses crt; var m:array[1..100,1..100] of integer; i,i1,j,str,stb,temp:integer; begin clrscr; writeln('Пожалуйста введите число строк массива: '); readln(str); writeln('Пожалуйста введите число Столбцов массива: '); readln(stb); clrscr; writeln('Массиа из ',str,' строк, и из ',stb,' столбцов успешно создан!'); <span>writeln; for i:=1 to str do begin for j:=1 to stb do begin m[i,j]:=random(80)+1; write(m[i,j]:3,' '); end; writeln; end; writeln; writeln(' отсортирован по убыванию'); writeln; for i1:=1 to str do for i:=1 to str-1 do for j:=i+1 to str do if m[i1,i]<m[i1,j] then begin temp:=m[i1,i]; m[i1,i]:=m[i1,j]; m[i1,j]:=temp;end; writeln; for i:=1 to str do begin for j:=1 to stb do begin write(m[i,j]:3,' '); end; writeln; end; readkey; <span>end. Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело</span></span>