Решите в паскале 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.

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

64*48*12*8=294,912- обьем в байтах 1 стр