Pascal. дана строка типа '500 рублей' в которой первые несколько символов (цифровые) обозначают стоимость товара а затем после пробела идут символы (буквенные) обозначающие валюту перевести стоимость товаров в числовую форму и подсчитать их сумму

Pascalabc.net (только под этим компилятором, в программе есть функции, которых нет в стандартном наборе) если под turbopascal или free то будет выглядеть иначе const      s = 10;         var    a : array of char;     i,l : integer;     r : real;       begin  setlength (a,1);   read (a[0]);   i : = 0;       while a[i] < > ' ' do    begin    i : = i +1;       setlength (a,i+1);     read (a[i]);     end;       r : = 0;   l : = i-1;       for i : = 0 to l do begin  r : = r + (ord(a[i]) - 48) * power (s,(l-i));     end;         writeln (r);           end.

вы вводите 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, которое по сути показывает количество чисел, которые больше чем предыдущее

def pereb(array):

    vars = ['array ' + str(x) for x in range(len(array))]

    print(vars)

    ret = ''

    for i in vars:

        ret += str(i) + ', '

        ret = ret[0: -1]

        ret += ')'

    for i in range(len(array)):

        ret += 'for' + vars[i] + 'in array[' + str(i) + ']'

        ret += ')'

    print(ret)

    return {'array': array}

print(pereb('puzdets and not your teachers code to write'))