Вводится последовательность ненулевых чисел.0-конец последовательности. подсчитать, сколько в ней отрицательных чисел, и сумму положительных чисел.

program msdos; uses crt; var  r,sum: real;   neg: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   neg: =0;   sum: =0;   r: =1;   writeln('введите ненулевое число');   writeln('(или введите 0 для конца последовательности) ');   while r< > 0 do      begin          write('ввод: ');             readln (r);           if r< 0 then neg: =neg+1;           if r> 0 then sum: =sum+r;       end;   writeln();   writeln('количество отрицательных чисел ',neg);   writeln('сумма положительных чисел ',sum); end.

var

a,k,s: integer;

begin

repeat

write (' = > '); readln(a);  

if a< 0 then k: =k+1 else s: =s+a;  

until a=0;

writeln ('summa: ',s);

writeln ('kol-vo: ',k);

readln;

end.

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.

мощность n=16

n=2^i где i-количество информации в символе

тогда i=4

информационный объем i равен i*k где k - количество символов в тексте

значит i =4*540=2160