Ответ: Задача № 1)Код программы получился довольно таки большой , но можно сам файл *.pas Закинуть в интернет и оттуда скачать.Задача №2)uses crt;var m:array[1..100,1..100] of integer;    i,i1,j,str,stb,temp:integer;beginclrscr;writeln(‘Пожалуйста введите число строк массива: ‘); readln(str);writeln(‘Пожалуйста введите число Столбцов массива: ‘); readln(stb);clrscr;writeln(‘Массиа из ‘,str,’ строк, и из ‘,stb,’ столбцов успешно создан!’);writeln;for i:=1 to str dobegin     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 dobegin     for j:=1 to stb do     begin     write(m[i,j]:3,’  ‘);     end;     writeln;end;readkey;end.Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело