Решите в паскале 1)дана непустая последовательность целых чисел, оканчивающаяся нулем. найти: а) сумму всех чисел последовательности, больших числа x; б) количество всех четных чисел последовательности. 2)дана последовательность ненулевых целых чисел, оканчивающая нулем. оп- ределить, сколько раз в этой последовательности меняется знак. (например, в последовательности 10, –4, 12, 56, –4 знак меняется 3 раза.)

Program n1; var a,k,sum,x: integer; begin write('введите число x: '); readln(x); sum: =0; k: =0; writeln('введите непустую последовательность целых чисел, которая оканчивается нулем: '); read(a); while a < > 0 do  begin    if a> x then sum: =sum+a;     if a mod 2 = 0 then k: =k+1;     read(a); end; writeln('сумма всех чисел последовательности, больших числа x: ',sum); writeln('количество всех четных чисел последовательности: ',k); end.program n2; var a,b,k: integer; beginwriteln('введите последовательность ненулевых целых чисел, которая оканчивается нулем: '); read(a); while a< > 0 dobegin    read(b);     if a*b< 0 then k: =k+1;     a: =b; end; writeln(k,' раз(а) в введенной последовательности меняется знак'); end.

  =)

    пусть х - время в секундах.

    тогда

      (1/3 *   60/8 мбайт/с * x) с - время   за треть времени)

      (2/3 * 90/8 мбайт/с * x) с - время за две третти времени

      тогда уравнение получается

      1/3 *   60/8   * x   +   2/3 * 90/8 * x = 9000

      2,5x +   7,5x = 9000

          10x = 9000

          x = 900

        получается 900 секунд или 900/60 = 15 минут)