Var k, m: integer; Dat: array[1..10] of integer; Begin A [1] := 20; A [2] := 16; A [3] := 20; A [4] := 36; A [5] := 15; A [6] := 21; A [7] := 28; A [8] := 17; A [9] := 26; A [10] := 35; m := 1; for k := 1 to 10 do if A [k]< А[m] then begin m := m+1 end; writeln(m); End.
С подробным пояснением пож.)))

Ответ 5

Только одна поправочка. Вы вводите массив Dat. А потом используете обозначение A . Это я в начале не заметил. Поправьте. Либо определите в начале как A. Либо везде меняйте на Dat

Вы вводите 2 целочисленные переменные: k, m

И объявляете целочисленный массив: Dat , в котором выделяется память под 10 ячеек.

Далее вы присваиваете каждому элементу массива Dat, собственное значение A[1] := 20, A[4] := 36 и т.д

После этого вы присваиваете m значение 1

И создаете цикл от 1 до 10, в котором у вас происходит сравнение элемента A[k] и элемента A[m]. В случае, если А[k] < A[m]. То вы добавляете к переменной m единицу.

После этого цикла, вы выводите на экран это самое m, которое по сути показывает количество чисел, которые больше чем предыдущее