[lmikle]

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

1. Дана последовательность чисел a1, a2, a3,…,an. Вывести ее на экран в порядке возрастания. (вывод производить в одну строку)

Код:

var
  A : Array Of Integer; // 0..N-1
  I, J, B : Integer;
begin
  For I := Low(A) To High(A)-1 Do
    For J := I + 1 To High(A) Do
      If A[i] > A[J] Then
        Begin
          B := A[i]; A[i] := A[J]; A[J] := B;
        End;

  For I := Low(A) To High(A) Do Write(A[i] + ', ');
  WriteLn;

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

2. Задана матрица размером n × m. Найти максимальный по модулю элемент матрицы.

Код:

var
  I, J : Integer;
  A : Array Of Array Of Integer;
  M : Integer;
begin
  M := Abs(A[0,0]);
  For I := Low(A) To High(A) Do
    For J := Low(A[i]) To High(A[i]) Do
      If Abs(A[I,J]) > M Then M := Abs(A[I,J]);
  WriteLn('Max(Abs(A[I,J]))=',M);

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

3. Составить программу, которая для массива, заполненного случайными целыми числами, проводит сортировку по не убыванию методом выбора (выделения). Подсчитать количество присваиваний и количество сравнений при сортировке.

Помогите пожалуйста решить . Буду очень признателен

Дальше лень думать. Смотри в вике алгоритм и просто расписывай по шагам.