Чому рівна медіана варіаційного ряду 3;3;4;4;5;5;6;6

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var m,n:integer;
  Write('Количество строк и столбцов матрицы: ');
  Read(n,m);
  var a:=MatrixRandom(n,m,10,99);
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do Print(a[i,j]);
    Writeln
    end;
  var p:=ReadInteger('Введите число Р:');
  var b:array of integer;
  SetLength(b,4*m);
  var k:=0;
  for var i:=n-p to n-1 do
    for var j:=0 to m-1 do
      if a[i,j] mod 4=0 then begin
        b[k]:=a[i,j]; Inc(k)
        end;
  SetLength(b,k);
  b.Print
end.

Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20

Задание 1

Давайте рассмотрим, что происходит в следующей части кода:

n := Ves[1]нц для k от 1 до 14если Ves[k] < n тоn := Ves[k]всекц

Сначала мы присваиваем переменной n значение первого элемента массива Ves. Затем создаём цикл с итератором k, который проходит значения от 1 до 14. В каждой итерации (1 проход всех операторов / выражений в цикле) мы проверяем, является ли n больше k-того элемента и, если это условие не выполняется (то есть Ves[k] > n), то это значение присваивается переменной k. Что это значит? То, что мы находим минимальный элемент. Мы можем не работать дальше с этой частью кода, а просто найти минимальное значение в массиве.

ответ

21

Задание 2

Рассмотрим данную часть кода:

score := 0;нц для k от 1 до 9если A[k] >= 9 тоscore:= score+A[k]всёкц

Мы объявляем переменную, которая, судя по названию, хранит сумму чего-то. Затем в цикле от 1 до 9 мы проверяем, является ли k-тый элемент массива A больше или равен 9. Если так, то мы добавляем это число в переменную score. Что это значит? Что мы находим сумму всех элементов, которые больше или равны 9. Такие элементы:

11 12 13 9

ответ

45

Задание 3

Задание абсолютно противоположно первому. Здесь мы находим максимальный элемент.

ответ

41