Вводится последовательность ненулевых чисел.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.

32 - вопроса, 32 - ответа

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0)