Question

Дана матрица размера M × N. Найтиминимальный среди элементов тех строк, которые упорядочены либо повозрастанию, либо по убыванию. Если упорядоченные строки в матрице отсутствуют,то вывести 0.Дана матрица размера M × N. Упорядочить еестроки так, чтобы их минимальные элементы образовывали убывающуюпоследовательность.Помогите решить в Pascal ABC. Хотя бы одну

Answer 1

Задача № 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,' столбцов успешно создан!');
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;
end.
Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело