Решение массива и матрицы

[lesmanora]

Перерыла весь интернет и никак не могу решить вот эти две задачи! Помогите, пожалуйста)

1. Отсортировать массив х с n элементов в порядке возрастания и найти максимальный элемент массива.

2. Дано квадратную матрицу размерности n × n. Напечатать элементы четвертого столбца в порядке возрастания.

[p51x]

Сообщение от lesmanora

Перерыла весь интернет и никак не могу решить вот эти две задачи!

А вы уверены, что рыли интернет, а не что-то иное? Открываем первую страницу в гугле:
http://www.vzmakh.ru/info/pascal/modules/page14.html
https://life-prog.ru/view_algoritmleng.php?id=94
http://pascal.net.ru/%D0%A1%D0%BE%D1...B2%D0%BE%D0%B2
http://kvodo.ru/pascal-sortirovka-od...-massivov.html
и т.д.
Когда массив отсортирован, то максимум и искать не надо - он стоит на своем месте.

Сообщение от lesmanora

2. Дано квадратную матрицу размерности n × n. Напечатать элементы четвертого столбца в порядке возрастания.

Абсолютно тоже самое, что и в 1 задаче, только один из индексов зафиксировать.

[digitalis]

Сообщение от p51x

один из индексов зафиксировать.

Второй. mas[i,4] ;

[Вадим Мошев]

Сообщение от p51x

Абсолютно тоже самое, что и в 1 задаче, только один из индексов зафиксировать

От этого изменится и сама матрица (у неё столбец сортируется). Я бы посоветовал записать элементы этого столбца в новый, уже одномерный массив.

[p51x]

И? В ТЗ нет ничего про осохранение матрицы или дальнейшие расчеты с использованием исходной.

[newerow1989]

1

const n=10;
var x:array[1..n] of integer;
    i,z:integer;
    d:boolean;
begin
   Randomize;
   For i:=1 to n do
   begin
      x[i]:=Random(21);
      Write(x[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   Repeat
      d:=true;
      For i:=1 to n-1 do
        If x[i]>x[i+1] then
        begin
           d:=false;
           z:=x[i];
           x[i]:=x[i+1];
           x[i+1]:=z;
        end;
   Until d;
   For i:=1 to n do
      Write(x[i]:3,'  ');
   Writeln;
   Writeln('max = ',x[n]);
   Readln;
end.

2

const n=10;
var p:array[1..n,1..n] of integer;
    i,j,z:integer;
    d:boolean;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   Writeln;
   Repeat
      d:=true;
      For i:=1 to n-1 do
        If p[i,4]>p[i+1,4] then
        begin
           d:=false;
           z:=p[i,4];
           p[i,4]:=p[i+1,4];
           p[i+1,4]:=z;
        end;
   Until d;
   For i:=1 to n do
      Write(p[i,4]:3,'  ');
   Writeln;
   Readln;
end.