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.
С подробным пояснением пож.)))
С подробным пояснением пож.)))
More Questions From This User See All
Answers & Comments
Вы вводите 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, которое по сути показывает количество чисел, которые больше чем предыдущее