[pascal] написать программу: известен расход по n горючего в каждом из m автохозяйств. определите для каждого хозяйства вид горючего с наибольшим и с наименьшим расходом.

1. создается массив из целых, массив статический на 30 элементов. 2. в цикле со счетчиком (for) заполняется массив с клавиатуры, вводятся 30 значений. 3. еще раз в цикле просматриваются все элементы массива и сравниваются с 20. если больше 20, то увеличивается значение переменной x на  1 и к значению перменной y прибавляют значение этого элемента массива. 4. после окончания цикла вычисляется выводится отношение s: =x/y. небольшое дополнение, если элементов массива больших 20 не будет, то возникнет переполнение из-за деления на 0

var i, sum1, sum2: integer;

begin

    sum1: = 0;

    sum2: = 0;

    for i: = 13 to 75 do

        if i mod 10 = 3 then

            sum1: = sum1 + i

        else if i mod 3 = 0 then

            sum2: = sum2 + i;

    if sum1 > sum2 then writeln("первая сумма больше") else

    if sum2 > sum1 then writeln("вторая сумма больше");

end.