Pascal. вводится массив из 10 элементов.требуется выписать все 4знач.эл кратные 4, но не кратные 100 или кратные 1000. пользователь вводит 15 чисел.найти наибольшее из них, наименьшее и вычислить их разность.

Var   a: array [1..120] of real;   i, res: integer; begin   randomize();   res : = 0;     for i : = 1 to 120 do   begin       a[i] : = random(101);       writeln('a[', i, '] => ', a[i]);   end;   writeln();     for i : = 1 to 120 do       if abs(a[i]) > 17 then           inc(res);     writeln(res); end. =================== var   c: array [1..20] of integer;   i, res: integer; begin   randomize();   res : = 0;     for i : = 1 to 20 do   begin       c[i] : = random(101);       writeln('c[', i, '] => ', c[i]);   end;   writeln();     for i : = 1 to 20 do       if c[i] mod 2 = 1 then           c[i] : = -1 * c[i];     writeln('new array: ');   for i : = 1 to 20 do   begin       writeln('c[', i, '] => ', c[i]);   end; end.

Программа должна вывести 89, то есть n после цикла должна стать равной 89. изначально n была равна 5, каждый повтор цикла к n прибавляется 6. определим количество повторов цикла (сколько раз к n должна быть прибавлена 6 для получения числа 89): 5+6*x = 89 6*x = 84 x = 14 то есть цикл должен совершить 14 повторов. каждый раз к s прибавляется d (которую нужно найти), изначально s = 83. нам удобнее прибавлять d к нулю, а не к 83, поэтому вычтем из 1200 83 и приравняем s к нулю. условие в цикле теперь будет выглядеть как s < = 1117 нам нужно наибольшее s, при котором цикл совершает 14 повторов. чем больше значение d, тем меньше повторов совершит цикл. найдем наименьшее целое d, при котором цикл совершает 13 повторов, и возьмем предыдущее целое, это и будет наибольшее d, при котором цикл совершит 14 повторов. цикл завершается после того, как условие перестанет выполняться, то есть при s > 1117. составим неравенство: 13*d > 1117 d > 85,92 то есть наименьшее d, при котором цикл совершит 13 повторов - 86, значит наибольшее d, при котором цикл совершит 14 повторов - 85. ответ 85