Опишите на языке программирования паскаль алгоритм подсчета максимального количества подряд идущих элементов каждый из которых меньше или равен предыдущему, в целочисленном массиве длины 30​

ответ на Python:

from random import randint

a,b = [i for i in range(10,51)],[i for i in range(10,51)]

v,p = 0,0

for i in range(int(input())):

   print('Ход номер',i+1)

   q,w = a[randint(1,len(a)-1)],b[randint(1,len(b)-1)]

   v += w

   p += q

   a.remove(q)

   b.remove(w)

   print('Петя вытащил шарик с номером',q,'его счёт равен',p)

   print('Ваня вытащил шарик с номером',w,'его счёт равен',v)

if p>v:

   print('Победил Петя!')

elif p<v:

   print('Победил Ваня!')

else:

   print('Победила дружба!')

Объяснение:

1. Оператор цикла предназначен для выполнения большого количества однотипных вычислений, отличающихся только значениями переменных, входящих в формулу. Например, вычисление значений формулы y=sin(x) для х=1..10 с шагом 1.
2. В языке Паскаль существуют циклы: с параметром (FOR), с предусловием (WHILE..DO), с постусловием (REPEAT...UNTIL).
3. Оператор FOR для примера п.1 имеет вид: FOR K:= 1 TO 10 DO Y[K]:=SIN(K). Если в теле цикла будет несколько операторов, то они заключаются в операторных скобки BEGIN...END.
4. Во время исполнения этого оператора переменной Y[K] (элементам маccива Y) последовательно присваиваются значения SIN(K).
5. Оператор FOR применяется в тех случаях, когда число повторений заранее известно (К=1..10).
6-9. Циклы WHILE и  REPEAT применяются, когда число повторений заранее неизвестно, например, для вычисления суммы ряда с заданной точностью, но их можно применять и для расчета по предыдущему примеру.
K:=0;
WHILE K<11 DO
BEGIN
K:=K+1;
Y[K]:=SIN(K)
END;
или для цикла REPEAT:
K:=0;
REPEAT
K:=K+1;
Y[K]:=SIN(K}
UNTIL K>10;
Для вычислений эти циклы равносильны, но есть одно (иногда решающее) отличие - цикл WHILE не будет выполнен ни разу, если условие сразу ложно, а цикл REPEAT сначала выполнит одну операцию, а потом, если условие окажется ложным, остановится.